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APRESENTA^AO 


Quando a primeira maquina Sinclair foi lan 
5 ada na metade de 1982, uma barreira foi quebrada 
na area da Informatica. Pela primeira vez urn com- 
putador "raoderadamente" poderoso era vendido na In- 
glaterra e nos Estados Unidos por menos de 100 dola 
res . 

Devido a esta condiqao basica — equipamen- 
to extremamente barato — os computadores atingiram 
a maioria da populaqao,incluindo muitos estudantes. 

So nos Estados Unidos ja foram comerciali- 
zadas mais de 1 milhao dessas maquinas e urn numero 
aproximadamente igual ja foi vendido na Europa. 

No Brasil nao temos dados precisos sobre 
a produqao, porem sabemos que a Microdigital traba- 
lha a pleno vapor sem ser atingida pela crise, de- 
senvolvendo, entre outros, os parentes bem.proximos 
da linha Sinclair, ou seja, os micros TK-82,83,85^ 

Nesta pequena coleqao de programas a refe- 
rencia basica sera ao TK-85. 

A tecnologia original foi desenvolvida na 
Inglaterra pelo extraordinario Clive Sinclair, que 
em empreendimentos anteriores foi a bancarrota, mas 
no projeto do micro obteve um sucesso extraordina¬ 


rio. 



Como consequencia do sucesso de vendas no 
Brasil do TK-85, apesar de algumas de suas limita- 
goes, como por exemplo a falta de uma impressora e 
de a 1 guns comandos do BASIC como READ, DATA,RESTORE 
etc., surgiu urn grande numero de usuarios, 

£ ehtretanto um grave erro, como diz Char 
les Ryan no seu artigo "0 Volkswagen dos pequenos 
sistemas" , que saiu no primeiro numero da revista 
Bits (outubro de 1983), atribuir o sucesso do TK-85 
e similares apenas ao prego conveniente do produto. 

Um fator importante que deve ser pesado no 
fenomeno Sinclair e que ele foi o primeiro micro na 
sua faixa de prego que estava dirigido diretamente 
ao usuario nao especializado, o qual poderia ter a 
maquina no seu lar acoplada a um aparelho de TV co- 
mum e tendo condigoes de opera—la a qualquer ins— 
tante. 

A seguir surgiu a possibilidade da expan- 
sao da memoria RAM, a factibilidade de criar e gra- 
var era fita arquivos de dados separadamente do pro- 
grama e esperamos a partir de 1984 a possibilidade 
de conectar uma impressora barata ao TK-85, 

0 Tfc-85 tern uma grande utilidade no lazer, 
aceitando programas com jogos de emogao que exigem 
reflexos rapidos, habilidade manual e obviamente 
raciocinio. Esta ea fungao do livro TK-Divertindo . 

No TK-85 tambem podemos desenvolver progra 
mas didaticos que servem inclusive de auto-instru- 
gao. Alias, esta e a finalidade basics do TK-Lem - 
brando. 

0 TK-85 nao deixa entretanto de ser util 
no dia-a-dia dos calculos caseiros, de escritorio 
ou da escola. Foi com essa intengao que escrevemos 


o TK-Calculando, 


Nesta colegao de programas a preocupagao 

. m. ** P* 

foi realmente nao termos muitas instrugoes em cada 
programs, economizando dessa forma memoria e tempo 
de digitagao. 

Nao achamos tambSm que e uma simples cole- 
tanea de "joguinhos" ou de aplicagoes um pouco mais 
serias, visto que em quase todos os programas demos 
indicagoes de eventuais & uteis alteragoes e em al- 
guns casos fazemos comentarios ate exaustivos,porem 
em todos indicamos a finalidade do programs e suge- 
rimos ate uma aplicagao numerics onde ela convier. 

Acreditamos que a colegao destes tres li — 
vros represents uma forma bem barata de adquirir 
software, embora nao seja esta a utilidade mais im¬ 
portante. 

Pode ter certeza o(a) caro(a) leitor(a)que 
a digitagao etapa por etapa, isto e,linha por linha 
de um programs, acaba mostrando a voce fundamentais 
truques de programagao, e existe uma absorgao de co 
nheciraento que se nao e por osmose pode ser por "vi 
diose". 

A1ias,ninguera consegue ser um grande joga- 
dor se nao treinar muito e copiar um pouco o estilo 
daqueles que ja jogam bem. 

£ muito dificil ser um grande escritor sem 
ter sido um paciente leitor de muitos livros. 

Nao da portanto para ser um bom programs- 
dor sem antes ter visto muitos programas funciona- 
rem e bem. 

A colegao corapleta tern 100 programas e por 
tanto o material e bastante farto e diversificado. 

Claro que o passo seguinte seria ler um li 
vro do tipo Linguagem BASIC ou BASIC Sem Segredos, 



editados tambem pela Livraria Nobel, para comple- 
mentagao ou eliminagao de qualquer duvida sobre os 
diversos comandos do BASIC* 

De uma coisa todos nos da familia Mirshawka 
estamos convictos: os micros da Microdigital da se- 
rie TK e tecnologia Nacional sao equipamentos se- 
rios e nao brinquedos como pretendera inculcar al- 
guns menos informados na cabega dos "computamama- 

A A ir 
COS . 

Todos muitos em breve serao "computamania- 
cos" e o TK-85 pode ser definido como o "volkscom- 
puter", ou seja, o micro do povo, assitn como o Volks 
vagen ou talvez o Fiat, aqui no Brasil, sejam os au 
tomoveis do povo. 

A tarefa de escrever programas para um mi¬ 
cro nao e muito dificil. Preste portanto muita aten 
gao nas sugestoes, nas modificagoes e nos diversos 
truques indicados nos 100 programas e em breve voce 
estara tambem programando os seus jogos ou entao 
resolvendo os seus problemas de Matematica, Fisica, 
Quimica e quern sabe ate de Finangas e de Engenha- 
ria. 

Seja bem-vindo ao mundo do TK-85 e muitas 
felicidades. 

Os autores, ou seja, 
a familia Mirshawka, 
unida entre outras 
coisas pelo TK. 

(1) TK-82, TK-83 e TK-85 sa 0 marcas registradas da Microdigital EletrS- 
nica Ltda. 


SUMARIO 


I. INTRODUgAO .. 1 

1. 0 teclado do seu TK-85 .. 1 

0 cursor .. 4 

NEWLINE . 4 

RUN . 5 

BREAK . 5 

NEW... 5 

LIST . 6 

EDIT . 6 

0 sistema "colorido" do seu TK-85 ......... 7 


2. Indicagao resumida das palavras-chave em or 
dem alfabetica que podem ser acessadas no 
TK-85 com uma unica ,, teclada' , desde que ja 


se esteja no modo correto... 11 

3. Primeiros socorros ... 14 

Posslveis "mancadas" suas, pois o TK—85 

nao manca, visto que nao tern pernas ..... 19 

4. Guardando o seu programs . 24 

5. Carregando um programs ... 25 

II. PROGRAMAS . 27 

1. Formula III . 29 

2. Formula II . 33 

3. Formula I . 39 

4. Material para concreto . 45 

5. Aleatorios do TK-85 .....49 

6. Langando dados . 53 

7. Salario bruto .... 55 

8. Amortizagao de uraa divida . 57 



























9. Divulgando . 61 

10. Testes de matematica . 63 

11. Licenciamento de veiculos . 69 

12. Sentindo as vendas .. . . ... 73 

13. Venda total .. 77 

14. Compra de carpete . 81 

15. Media e desvio padrao . 85 

16. Anagrama ... 89 

17. Conversao de angulos . 93 

18. Incognitas de um triangulo .. 97 

19. Tetraedro e octaedro . 103 

20 . Area de um poligono . 107 

21. Interpolaqao . Ill 

22. Estoque . 115 

23. Reverso . 119 

24. Pendulo . 123 

25. Graf icos . 127 

26. Rebatendo . 133 

27. Pro j et il . 139 

28. Coeficiente de correlagao . 147 

29. Ajuste da reta pelo M.M.Q, .. 151 

30. Regressao exponencial . 155 

31. Regressao geometrica .. 159 

32. Regressao polinomial .. 163 

33. Regressao linear multipla . 169 

34. Sistema linear . 177 

Bib 1iografia 


I. INTRODUCAO 


185 






























3 


1-0 TECLADO DO SEU TK-85 



A primeira vista o teclado do 'TK-85 pode 
ate parecer complicado. 

E nosso mister fazer com que voce se trans 
forme inicialmente em um exlmio "pianista" neste te 
cl ad o 1 conhecendo "as regras",as suas teclas e o que 
e fundamental,a fungao de cada uma. 

Olhe bem para as teclas. 

0lhou ? 

Bern, verificou que temos quatro linhas de 

teclas . 

Na linha de topo estao os numeros e nas te 
clas restantes estao as letras do alfabeto parecen- 
do muito com o que ocorre em uma maquina de escre- 
ver comum. 

Entretanto algumas das teclas podera ter- a 
sua fungao tomada erradamente ou seja podem ser tro 
cadas. 

Seja portanto cuidadoso. 

A letra "0" e o numero zero "0" nao devem 
ser confundidos. 

t esta a razao pela qual o seu zero apare- 
cera cortado "0". 

Da mesma forma e terrivel a confusao entre 
a letra "I" e o numero 1. 


Isto trara problemas e confusoes aparente- 
mente nao identificaveis nos seus programas. 

Boa parte do tempo as palavras que voce ira 
precisar serao obtidas num sensacional "zas-tras" 
pressionando-se apenas uma tecla. 

Isto fara com que voce economize muito ten 
po de digitagao, porem pode causar problemas tain- 
bem... 

Caso voce esquega isto e Bata letra por le 
tra as palavras que aparecera nas teclas, palavras 
estas que correspondem a comandos,o seu TK-85, pode 
ra e ficara confuso a tal ponto que se negara a a- 
ceitar a linha de instrugao assim teclada. 

Em alguns programas que aparecera no TK-Di- 
vertindo colocamos todas as palavras chave que se 
obtem pressionando apenas uma tecla dentro de um' re 
tangulo para que voce esc 1arecido(a) leitor(a) nao 
esquega disto. 

Um exetnplo e o comando [PRINT] . 

E muito facil cometer erros. 

Quern nao os coiete... 

Bem os erhros aqui sao de digitagao e e re- 
lativamente facil apaga-los ou seja "Borracha-los" 
usando duas teclas. 

A 1? tecla e (SHIFT [ e ela sera u,til em 
muitas coisas. 

Ela esta no canto da esquerda da ultima li 


nha. 

Esta tecla sera muito usada e voce deve 
pressiona-la com os dedos da mao esquerda. 

Pressione [SHIFT[ e mantenha-a assim abai- 
xada enquanto voce aciona f RUBOUT ) a qual esta na te 
cla que contSm o 0 (zero). 
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Com esta opera^ao voce conseguira limpar 
ou seja apagar as letras ou palavras que estao an¬ 
tes do cursor. 

0 CURSOR 

0 cursor e rauito importante porque ele nos 
informa em que posigao da tela nos encontramos no 
momento e o que o micro ira impritnir quando voce 
pressionar uma tecla. 

Existem quatro letras diferentes que podero 
aparecer dentro de uma casela ou quadradinho preto. 

Dessa forma teremos: 


Q Para numeros de linha e palavras chave que aparecem 
acima da tecla 

O -*■ Para letras e numeros 

Q|Para fungoes (palavras chave que aparecem abaixo da 
tecla) 

m Para graficos (letras brancas sobre fundo preto e 
alguns caracteres graficos especiais que aparecem 
coloridos com azul). 

[~ NEWLINE 1 Sabemos que NEWLINE quer dizer linha no 
va porem vamos escrever tudo junto para 
dar enfase que e uma tecla unica para 
entrar com uma instrugao. 

Esta e uma tecla muito importante. 

Quando voce pressiona esta tecla e mais ou 

menos a mesma coisa que dizer-lhe "faga aquilo que 

lhe mandei". 

Aqui vale o que ja disse ha muito tempo a 
Lady Lovelace que pode ser rotulada como a primeira 
programadora (Charles Babbage que o diga...):"o com 
putador pode fazer qualquer coisa que saibamos ex- 
plicar-lhe como fazer". 
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Note bem, ate apertar a tecla NEWLINE voce 
pode ser voluvel e mudar de ideia que o seu TK-85 
nao ira se importar com o que voce esta lhe pergun 
t ando. 

Depois que voce apertou o NEWLINE bau,bau, 
bau, Zezefredo ou entao adeus Ronilda... 



Quando voce ja embutiu todo o seu programs 
dentro do TK-85 voce deve informar-lhe para que exe 
cute o mesmo. 

Para fazer isto acione a tecla 1 RUN I e en¬ 
tao aperte a tecla [ NEWLINE 1 para confirmar. 



Esta tecla e muito util quando queremos pa 
rar o programs meio na "forga bruta". . . 


BREAK 



[ NEW 1 

Voce encontra esta palavra-chave acima da 

letra A. 


[NEW] e usada para limpar ou seja apagar 


qualquer programa remanescente 

e estar 

apto para 

um 

novo 

programa. 





Se .voCe apertar I NEW 1 

entao Q 

NEWLINE 1 

o s 

seus 

programas anteriores irao 

para o 

espago sera 

es 
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tarem em orbita ou seja jamais voltarao.. 


0 comando 1 LIST) esta na tecla j K | . 

Aperte o [LIST | e entao o [ NEWLINEJ e o 
TK-85 imprimira o seu programa na tela comegando na 
if linha. 

fi frequente, nao ser suficiente o espago 
todo de uma tela para que contenha urn programa com¬ 
plete. 

Para ver a parte do programa que lhe inte- 
r essar, pressione [ LIST j e entao tecle o numero da 
linha,no qual esta interessado antes de apertar o 
I NEWLINE | . 

0 seu TK-85 imprimira o programa comegando 
na linha cujo numero foi indicado no [LI STJ . 


0 comando i EDIT 1 (de edigao) esta na tecla 
1 1 | e caso voce queira editar uma linha-,por exemplo 
a linha 50,deve proceder da seguinte forma: acionar 
|LIST 1 50 e so ai pressionar o [ NEWLINE ] 

Depois destas agees pressione 

[SHIFTj[EDIT 1 e uma copia da linha 50 aparecera 
na parte de baixo. 

Voce pode agora usar [SHIFT| e as teclas [5 ] 
e {"8*j para deslocar o cursor ao longo da linha. 

Voce estimado(a) leitor(a) pode acrescen- 
tar novos caracteres ou apagar aqueles que sao in- 
desejaveis. 
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Voce pode inclusive mudar o numero da sua 


linha. 


Quando a linha estiver correta aperte 
[ NEWLINE [ e entao a nova versao da linha sera colo- 
cada no programa no lugar da velha. 


0 SISTEMA "COLORIDO" DO SEU TK-85 


No teclado do seu TK-85 voce vera quatro 
cores: preta, branca, amarela e a azul. 

£ bom se acostumar a estas cores para es- 
crever os programas e para que seja mais facil en- 
tende-los (as vezes) . 


Esta escrito em branco e aparece em cima 
da letra (§] . 

Easta apertar esta tecla no modo K e vo¬ 
ce tera o PLOT. 

A letra "V" aparece em branco.^ 

Basta apertar esta tecla e voce tera V 
desde que voce esteja no modo L. 

STOPl—► Como se ve o STOP esta escrito na cor 
amarela no seu TK-85. 

Tudo que estiver na cor amarela para po- 
der entrar dentro do TK-85 precisa antes 
ter apertada a tecla SHIFT (amarela 
por sinal! ! I) 



| siN | —*► A fungao s'eno esta escrita em branco^ e 
~ ~~ aparece na parte de baixo da tecla (§). 

Para entrar com a mesma voce deve apertar 
a tecla [SHIFT] e mante-la abaixada ate apertar a 
tecla NEWLINE ] que acima de si tern escrito em bran 
co j FUNCTION | . 

Tire o seu "lindo dedinho" da tecla [SHIFT] 
e eis que surge a letra dentro do cursor Q . 
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Aperte agora a tecla [5] 
Great surprise ! I I 


Aparecera na 


tela 



Esta portanto e a forma de entrar com to- 
das as fungoes que estao escrxtas em branco na par¬ 
te de baixo das teclas e exigera que o cursor esteja 
no modo FUNCTION Q . 

Podemos escrever em branco dentro de qua- 
drados negros e para tanto precisamos entrar no modo 
grafico. 

* Para isto e necessario apertar a tecla 

|SHIFTi e mante-la abaixada. 

Ache agora a tecla QT) e aperte a mesma 
(aperte mesmo e nao pense que o seu micro pode em 
algum momento ter cocegas., 

0 cursor mudara agora para a forma Q . 

Voce tern agora uma escolha. 

Pode por ^exemplo manter pressionada a te- 
c la 1 SHIFT| enquanto voce aperta a tecla d) e ter a 
como resultado a saida de@ 

Esta impressao vai ser muito util princi- 
palmente no volume I desta serie ou seja no TK-Di- 
ver tindo. 

Voce tem uma outra possibi1idade ou seja 
tirar o seu dedo da tecla | SHIFT} antes de apertar 
a tecla (b] e entao com essa sequencia de "acionamen 
tos" obter-se-a urn B "branco" em um fundo preto ou 
seja o B no modo graficoQ . 

Se voce mantiver pressionada a tecla fSHIFT] 
enquanto estiver em modo grafico, com algumas te¬ 
clas como CD , GO , [|) etc- [f] , (!) , [D etc . obterS pe- 

quenos simbolos graficos mostrados no canto infe¬ 
rior da direita e que estao representados em azul . 
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Alias nao deixe de notar que o GRAPHICS tam 
bem esta escrito em azul. 

Abaixo vao detalhados todos os sirabolos 

graficos disponiveis no seu TK-85. 

Simbolo Modo Teclas Simbolo Modo Teclas 

@ SPACE 

@ SHIFT-Q 

® SHIFT-W 

@ SHIFT-6 

@ SHIFT-R 

S SHIFT-8 

@ SHIFT-Y 

® SHIFT-3 

@ SHIFT-H 

S SHIFT-G 

® SHIFT-F 

Por favor observe que nesta lista cada sim 
bolo esta "emoldurado", dentro de um quadrado tendo 
oa seus quatro cantos evidentemente destacados oque 
as vezes nao e muito claro na tela. 

Assim por exemplo quando voce teclar o pri 
meiro simbolo, evidentemente nao tera um quadrado 
"branco" ou ainda uma caixa vazia mas sim um espaqo 



em branco. 
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Bern, com a digitaqao dos programas voce en 
tendera isto melhor!!I 

Insistindo mais uma vez, nao esqueqa que 
voce obtem letras e numeros em video inverso atra— 
ves do modo B. 

Todos os simbolos matematicos sao tambem 
acessados de uma forma bem simples porem eles es- 
tao em amarelo que alias e tambem a cor da tecla 
|SHIFTl. 


Portanto aperte 


e depois 


cla T) que significa "nao igual a" ou "diferente de" 


> = 1 (tecla Y) que significa "raaior ou igual a", 

1 **I (tecla H) que significa "elevado a" 

J |~- | (tecla L) que significa "atribua a vari 
vel que esta a esquerda o valor que est 


a direita" 


I (tecla N) que significa "menor que" etc. 


OBSERVAQAO IMPORTANTE - Q.I. 

Neste livro a unica forma de representar 
aspas esta localizada na tecla P. 

Em nenhum dos nossos programas usaremos as 
aspas que estao localizadas na tecla Q. 

Comentaremos isto com mais detalhes no pro 
grama 4 - "MATERIAL PARA C0NCRET0". 


on Ion 
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- INDICAQ&O RESUMIDA DAS PA LAVRAS-CRAVE EM 
ORDEM ALFAB&TICA QUE PODEM SER ACESSADAS 
NO TK-85 COM UMA &NICA "TECLADA" DESDE 

QUE JA SE ESTEJA NO MODO C0RRET0 


Palavra 
chave 

Modo 

Tecla 

Significado 

ABS 

B 

G 

valor absoluto 

ACS 

B 

S 

arco cosseno 

AND 

Q ou Q 

SHIFT-2 

juntando condiqoes 

ASN 

B 

A 

arco seno 

AT 

B 

C 

especifica a posi^ao de impres— 
sao 

ATN 

a 

D 

arco tangente 

chr?; 

B 

U 

numero para caractere 

CLEAR 

H 

X 

limpa variaveis e tela 

CLS 

13 

V 

limpa tela 

CODE 

B 

I 

de caractere para numero' 

CONT 

Q 

C 

continua a execufao 

COPY 

(3 

z 

copia a tela para a impressora 

COS 

B 

w 

cosseno 

DIM 

13 

D 

dimensoes de conjuntos numeri- 
cos e alfabeticos 

EXP 

B 

X 

exponencial 

FAST 

(3 ou (9 

SHIFT-F 

modo rapido 

FOR 

13 

F 

ajusta para um laqo 
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Palavra 
chave 

Modo 

Tecla 

Significado 

GOSUB 

Q 

H 

desvia para subrotina 

GOTO 

0 

G 

desvio incondicional 

IF 

0 

U 

testa condigao 

INKEY$ 

a 

B 

Le o teclado 

.INPUT 

a 

I 

aceita dados 

INT 

a 

R 

volta apenas a parte inteira 

LEN 

a 

K 

compriraento da variavel alfanu 
merica (STRING) 

LET 

a 

L 

atribuindo valores 

LIST 

a 

K 

lista o programa 

LLIST 

13 ou | 

SHIFT-G 

lista na impressora 

LN 

a 

Z 

logaritmo natural 

LOAD 

a 

J 

carrega o programa do cassete 

LPRINT 

a a 

SHIFT-S 

imprime via impressora 

NEW 

Q 

A 

limpa a memoria 

NEXT 

a 

N 

indica fim do lago 

NOT 

a 

N 

negagao 

OR 

a ouH 

SHIFT-W 

duas ou roais condigoes 

PAUSE 

a 

M 

da uma pausa no TK-85 

PEEK 

a 

0 

mostra a memoria em um ponto 
especifico 

PI 

a 

M 

valor de it 

PLOT 

a 

Q 

coloca um pixel na tela 

POKE 

a 

0 

coloca dados em uma posigao es 
pecifica da memoria 

PRINT 

a 

p 

imprime algo 


Palavra 

chave 

Modo Tecla 

Significado 

RAND 

0 

T 

indica a posigao inicial do RND 

REM 

13 

E 

observagoes ou comentarios 

RETURN 

(3 

Y 

volta logo apos a chamada do 
GOSUB 

RND 

Q 

T 

fungao aleatoria 

RUN 

0 

R 

executa um programa 

SAVE 

0 

S 

guarda o programa em fita 

SCROLL 

13 

B 

gira uma linha para cima 

SGN 

B 

F 

sinal de um nuroero 

SIN 

B 

Q 

seno 

SLOW 

0 

ou B SHIFT-D 

modo lento 

SQR 

S 

H 

raiz quadrada 

STEP 

0 

ou B SHIFT-E 

incremento do par FOR/NEXT 

STOP 

0 

ou B SHIFT-A 

para a execugao 

STR$ 

B 

Y 

valores numericos para alfanu- 
mericos (STRINGs) 

TAB 

B 

P 

tabulagao 

TAN 

B 

E 

tangente 

THEN 

0 

ou B SHIFT-3 

resultante de uma condigao ver 
dadeira 

TO 

0 

ou B SHIFT-4 

especifica o limite 

UNPljOi 

0 

W 

apaga um pixel 

USR 

a 

L 

codigo de maquina dentro do 

BASIC 

VAL 

B 

J 

converte caracteres numericos 
para os seus valores numericos 
atuais 
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PFtTMEIROS SOCORROS 
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Voce necessita entrar 
do modo grafico? 

fVA PARA 6l _ 

Voce nao pode editar 
(EDIT) uma linha? 


Voce tem mais algum 
problema? 

m. PARA~8l 


0 Pressione a tecla | NEWLINE ( 

Veja se voce nao encontra o seu cursor com o 
aspecto Q !’.!?? Caso isto aconte?a e o seu TK-85 
que esta Ihe indicando onde provavelmente esta o 
erro nesta linha. 

Veja se voce nao esquec eu urn f + 1 ou L^-J ou LU^tc. 


7 T) Tecle o (SHIFT] e-mantenha abaixada enquan- 

—- EDIT 

to voce aperta 

Se uma linha de programs substituir o "lixo que 
estava escrito aperte t NEWLINE | para continuar. 


|~3~] Tecle SHIFT e mantenha abaixada a mesma. 


Utilize as teclas 


^*1 para mover 


o cursor exatamente a direita do erro. 
Mantenha abaixada a tecla [SHIFT*] e aperte 
RUBOUTl para apagar.Solte o [SHIFT] e bata os 
slmbolos corretos. Aperte f NEWLINE ) . 
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0 Voce precisa editar (EDIT) a linha. 


Ache o 


na lista do programa. 


Mova-o ate a linha que deve ser editada man 
tendo pressionada a tecla |SHIFT| e apertando 


Com [SHIFT] e -^EDIT V oce obtem a copia da li 
nha na parte de baixo da tela. [VA PARA T] 


[5 ] Nao se preocupe com o que esta sumindo da te 

la. Tudo esta indo para a memoria do seu TK-85. 
Nenhum dos programas que e dado neste livro e su- 
ficientemente grande para lotar a memoria do seu 
TK-85 . 

Continue tranquilo, tec lando o seu programa, pois 
voce nao perdeu nada. 


0 Tecle [SHIFTl e GRAPHICS para fazer q cur 


sor sair do modo letra 


para o modo grafico 


Voce pode precisar que a tecla [SHIFT] fique abai- 
xada para que possa imprimir alguns caracteres in 
dicados era amarelo no seu TK-85. 

Pare de apertar a tecla [SHIFT] e a per t e f NEWLIHE~~| 
para voltar ao modo letra Q . 


,-, _ 

1 7 1 Aperte | y / | e j NEWLINE**] . 


Mantenha a tecla [SHIFT] abaixada enquanto 
aperta ^EDIT |y£ PARA 3 
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[~8~ Tem ou tera muitos a partir de agora. So 
mais um pouco de paciencia e voce sentira 
programas que realmente funcionam, pois foram 
todos testados. 

Entretanto como sugestao acompanhe com muita 
atenqao o que esta escrito a seguir. 


r 


Direqao e sentido a seguir caso voce 
estaja entrando com um programa 


Voce ja leu alguma coisa sobre "isto e o 
que o TK-85 pode ou nao fazer" e agora voce vai ler 
o que resta para "como fazer para conseguir que o 
TK-85 execute-o", 

g obvio que estamos nos referindo a um pro 
grama e os resultados podem ser totalmente diversos 
daqueles que se estava esperando. 


Quais podem ser as razoes? 


Resposta 


0 programa trabalha bem e inesperadamente algo 
ocorre de errado. 

Esse erro, deve ser provavelmente devido a um 
trecho do programa que nao e usado toda.s as ve 
zes. Este pode ser um dos posslveis problemas 
que serao abordados nos itens de I a XIV mais 
especificamente IV, V, VII e VIII. 


0 programa e executado,porem os resultados sao 
"levemente" diferentes ou ate mesmo errados. 
Isto, provavelmente e devido a um pequeno erro 
comumente cometido ao inforraar ao TK-85 onde 
ele deve imprimir alguma coisa na tela, 

Olhe com atenqao os "posslveis galhos"III,VI e 
mesmo I. 
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4 - POSSlVEIS "MANCADAS SUAS " TOIS 0 TK-85 NAO 
MANCAj VISTO QUE NAO TEM PEENAS .., 


Se voce seguir as instrugoes que estao nos 
diversos programas da forma que estao escritos ja¬ 
mais tera algum dos problemas que enumeraremos a se 
guir . 

Em tempo, e obvio que os autores nao sao 
infaliveis e alem do que podem surgir tambem alguns 
erros na composigao. Passamos a culpa para o datilo 
grafo... 

Portanto perdoadas as eventuais mancadas 
dos autores e como todo mundo comete erros de tempo 
em tempo, vejamos o que fazer se os programas nao 
apresentarem o que deles se espera. 

Ai vao algumas receitas ou seja alguns "re 
medios" para as suas mancadas caro(a) leitor(a). 


1 —Voce pensou que bateu a linha 70, porem es- 
queceu do 0 (zero) e bateu a linha 7 por engano. 

0 TK-85 lhe da uma indicagao de erro do tipo 
2/7 pois nao lhe foi dito que era para esquecer es 
te dlgito e a linha nao esta relacionada com o res- 
to do programa. 

A cura para este mal § editar (EDIT) a linha 
7 e acrescentar o 0 e entao apertar | NEWLIME ] para 
entrar a linha com numero de linha correto. 

Apague (ou seja de urn "RUBOUT") a linha 7 te 
clando o 7 e entao apos isto teclando f NEWLINE"] . 

Voce pode ter pulado uma das linhas por enga 


0 TK—85 lhe da um relatorio de erro 2/ M nume 
ro de linha" pois ele esta procurando achar algo que 
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ele precise da linha oraitida. 

tfn-Cca solugao - Eater a linha que foi omiti 

d a . 

XXX — Voce pode ter teclado uma linha erradaroen- 
te porem nao o suficientemente errada para que o 
TK-85 impega a ascensao (lindo nao?! ! ! desta linha 
ao programa). 

Voce poderia ter escrito 

100 LET C=13 
no lugar de 

100 LET V=13 

porque as teclas C e V estao bem proximas uma da ou 
tra . 

Possivel forma de descobrir o "grilo" - Veri 
ficar linha por linha o programa principal e entao 
fazer a mudanga. 

Esta e a solugao por inspegao para nao dizer 
por visao ou seja revisao total. 

IV—^ Existe um erro em uma parte do programa que 
nao e usado a todo instante. 

Este erro por exemplo pode estar na linha de 
alguma instrugao contadora ou seja aquela na qual 
se acumulam os pontos de um jogo. 

Se a raensagera de erro tem a forma 2/"numero 
de linha" entao tente os remedios de I ate III indi 
cados ha pouco. 

V . » 0 codigo de erro 3 ou B significa que um nu- 

mero nao e suf ■icientemente bom ou melhor, adequado 
para a tarefa que se esta exigindo. 

Por exemplo 
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200 PRINT AT X,Y 

pode nao entrar ou melhor nao ser executada caso X 
ou Y sejam negativos ou X seja maior que 21 (so te- 
mos 22 linhas na tela) ou Y maior que 31 (so temos 
32 colunas na tela). 

Note que as linhas sao numeradas 0,1,2,...21 
de cima para baixo e as colunas sao numeradas 0,1, 

2.31 da esquerda para a direita. 

0 problema pode tambem surgir em uma instru¬ 
gao como 

300 PRINT V$(K) se K 

deve ter 25 letras e nao existem mais que 18 letras 
em V$ ♦ 

£ evidente que o TK-85 nao ira ter condi- 
goes por exemplo de achar a vigesima quinta letra. 

Tome estimado(a) leitor(a) muito cuidado 
principalinente nos STRINGS (cadeias) que serao usa- 
dos para simular um movimento na tela. 

Observagao importante - O.I . 

Nao permita que o programa que esta entran 
do no seu TK-85 seja uma aasa da botaoha onde nada 
se acha ... 

Ai vai ser uma desgraga para passar algum 

programa. 

Um nfimero extra pode ter sido acrescido a um 
GOTO ou a um GOSUB ou ainda pode ter sido esquecido 
algum nuraero. 

Des sa maneira o seu TK-85 fica um tanto quan 
to atordoado pois esta sendo mandado para algum lu¬ 
gar que nao pode ir ou esta sendo mandado para o lu 
gar errado. 
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Com os humanos as vezes ocorre urn fato dife- 
rente ou seja mandam-se as pessoas para certos luga 
res e elas nao vao de forma alguma,.. 

A solugao para achar este tipo de erro e no- 
vamente a paciente e niponica verificagao linha por 
linha do programa todo. 

VII— ► Erro 5/"numero de linha" significa que a te¬ 
la esta lotada e voce esta tentando imprimir fora 
da janela correspondente a uma tela, 

Caso isto ocorra voce deve olhar o seu coman 
do PRINT ou entao tentar resolver o problems com o 
comando CONT e depois NEWLINE. 

VIII— * A mensagem de erro 4/"numero de linha" signi 
fica que voce "estourou" a memoria RAM do seu TK-85, 

Este fenomeno nao e tao raro porem naoocor 
rera nos programas deste livro a nao ser que depois 
de algum tempo o(a) criativo(a) leitorCa) acrescen- 
te coisas tao originais por conta propria que ocor 
ra o esgotamento da memoria do seu TK-85. 

Os remedios podem ser: a) usar um programa 
com uma tela menor fazendo economia nas mensagens 
e principalmente nas observa;oea (REMarks); b) lim 
par a tela com o [CLS ] sempre que for posslvel; c) 
a solugao "melhoral" ou seja expandir a memoria 
RAM (bora esta solugao e a mais simples mas tambem 
pode ser cara!')♦ 
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X— —* A mensagem codificada como 9/"numero de li- 
nha" significa que o seu TK-85 atingiu um comando 
STOP. 

Isto tambem pode ocorrer em vista de galhos 
do tipo I. 

XI— *' A mensagem codificada 6/. "numero de linha" 
significa que existe um erro na aritmetica ou alge- 
brico (notou bicho na aritmetica!!!) e o seu TK-85 
nao pode fazer aquilo que voce esta lhe mandando. 

XII— ► A mensagem codificada 7/ "numero de linha” 
significa que voce se esqueceu de alguma linha de 
programa com um STOP ou um GOTO e o seu TK-85 esta 
perdido cometendo enganos por voce programados em 
alguma subrotina. 

XIII— *0 programa pode entrar em um lago sem fim. 

Isto as vezes ate e desejavel. 

A unica maneira de sair desta situagao e apertando 
a tecla [break] . 

Uma causa provavel pode ser alguma linha per 
dida de GOTO ou ainda nuraeros errados ou esquecidos 
nos comandos GOTO. 

Perdeu-se o programa porque faltou luz devi- 
do a um defeito na rede da Eletropaulo durante um 
segundo!!!! 

Outro azar, teclou-se por descuido o {NEWi 

SoZuguo: "Sorria meu bem, sorria . , , " 

Conhece esta rausica! | | 

Pois e,voce deve entoa-la e comegar 
alegremente a teclar o programa todo 


d e novo. 
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Alias as vezes pode tambem ocorrer uma la- 
mentavel desconexao de algum fio da tomada ou ainda 
um querido parente chegar com um sorvete para voce 
e distraidamente tropegar nun fio desligando o sis- 
tema. 

Agradega pelo sorvete, nao fale nada que 
nao esta no dicionario e ainda mais se perguntarem 
algo diga, sou louco para digitar tudo pela segunda 
vez. 

5 - GUARDANDO 0 SEU PROGRAMA 

A digitagao de um programa longo consome 
muito tempo, 

Alem disso, toda vez que se tecla abre-se 
a possibi1idade para que surjam novos erros. 

Contudo um programa pode ser armazenado era 
uma fita magnetica da mesma forma que voce grava 
uma musica de sucesso quando essa Ihe interessa, no 
seu gravador. 

Para "salvar" um programa depois que omes- 
mo foi digitado e verificado no seu TK-85 tudo oque 
voce deve fazer e teclar a palavra SAVE e decidir 
entao sobre o nome para um particular programa. 

Para nao encucar a cabecinha do(a) queri- 
do(a) e criativo(a) leitor(a) ja colocamos nomes 
nos nossos programas. 

Alguns ate podem parecer longos mas a nos- 
so ver sao sugestivos. 

0 49 programa tem o nome de "MATERIAL PARA 
CONCRETO". 
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Caso voce deseje gravar esse programa te- 

cle 

SAVE "MATERIAL PARA CONCRETO" 

Neste ponto voce deve colocar o seu grava¬ 
dor no mode "recorder" ou seja gravagao. 

Pressione agora a tecla NEWLINE e o pro¬ 
grama ou mais precisamente uma copia do seu progra¬ 
ma passara para a fita cassete visto que o seu pro¬ 
grama original ainda reside na memoria RAM do seu 
TK-85. 

Voce sabera que a gravagao esta completa 
quando aparecer o codigo de tirmino da mesma 0/0 
no canto inferior da esquerda da sua tela. 

Agora voce ja pode desligar o seu grava¬ 
dor . 


6 - CARREGANDO UM PROGRAMA 

Com o intuito de carregar um programa de 

uma fita cassete para o seu TK~85 inicialmente te— 

cle NEW seguido por uma tecla NEWLINE . 

l _ 

Agora voce pode teclar por exemplo 

LOAD "MATERIAL PARA CONCRETO" 

o qual ira buscar e carregar na memoria RAM do seu 
TK-85 o programa chamado "MATERIAL PARA CONCRETO". 
Tem-se tambem a alternative 


o qual busca e carrega o primeiro programa completo 
que encontrar na fita. 
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Obsevvagoea importantes - 0,1. 

1) Nao esquega de fazer uma anota^ao precisa do no¬ 
ma do programa que voce esta arraazenando,incluin 
do quaisquer espagos em branco entre palavras que 
possam existir no tiome do mesmo. 

Caso voce guarde um programa chamado "MATERIAL PA 
RA CONCRETO" na fita e mais tarde queira carregar 
um programa chamado "MATERIALPARACOWCRETO" dames 
ma fita o seu TK-85 nao sera capaz de encontrar 
o programa. 

Que falta irao fazer os dois espagos em branco 
perdidos lI ?!!? 

2) Deve-se ter um gravador de "mono” nao o estereo 
para carregar ou para guardar programas. 

Caso o seu gravador de fitas seja apenas estereo 
voce deve virar o controle do "balance" (gostou 
dessa chapa?) ou todo para a esquerda ou todo pa 
ra a direita. 

Alem disso voce devera manter o controle do volu 
me um tanto quanto alto, talvez a 75% do volume 
maximo. 

Finalmente o controle do tom deve estar na sua 
mais alta posigao. 

E, o seu TK-85 se "embobina" um pouco com grava¬ 
dor sofisticado pois o que ele quer e um grava¬ 
dor simples... . 


II. PROGRAMAS 





Ai vao alguns programinhas"esparsos ,r de 
calculo que exigem poucos conheciraentos tecnicos e 
inteligencia mediana. 

Eles mostram entretanto de forma insofis- 
mavel a utilidade do seu TK-85, 


a) Inicialmente vamos elaborar um progra- 
ma para obter todos os numeros divisiveis por 14 
desde 100 ate 2000 e obter a soma de todos eles. 


10 REM NtfMERO DIVISlVEL POR 14 

20 LET S = 0 p- 

30 FOR N = 112 TO 2000 STEP 14 
40 PRINT N; "OO"; 

50 LET S = S + N 
60 NEXT K 
70 GOSUB 500 

100 PRINT TAB 13; 11 SOMA = ";S 
110 GOSUB 500 
120 STOP 

500 FOR I = 1 TO 32 
510 PRINT 
520 NEXT I . 

530 RETHKW 


este e o primeiro nu- 
mero divislvel por 14 
dentro da faixa espe- 
cificada 


30 


31 


b) Vamos agora indicar o programa que per 
mite imprimir tres numeros inteiros ( todos meno- 
res que 30, de tal forma que se tenha o mesmo re- 
sultado quer eles tenham sido somados ou multipli- 
cados, isto e 

X*Y*Z=X + Y + Z 
Al vai o programa verificador: 

10 REM PROCURA DE TREs INTEIROS ESPECIAIS 

20 FOR X = 1 TO 30 

30 FOR Y - X TO 30 

40 FOR Z = Y TO 30 

50 IF X*Y*Z<> X+Y+Z THEN GOTO 100 

60 PRINT "0 PRIMEIRO 2:"; X 

70 PRINT n O SEGUNDO 2: ";Y 

80 PRINT "0 TERCEIRO 2: M ; Z 

90 PRINT "A SOMA OU 0 PRODUTO DOS TRES VALE O'; X*Y*Z 
100 NEXT Z 
110 NEXT Y 
' 120 NEXT X 
130 STOP 


2 2 

Xrea = tt (R - r ) onde 


raio externo 
raio interno 



R 


L 

r 

r 


Figura 1 

Ai vai o prograrainha para 


esse calculo 


10 REM CSLCULO DA AREA DE UM ANEL CIRCULAR 
20 PRINT m ENTRE COM 0 RAIO EXTERNO" 

30 INPUT E 

40 PRINT "ENTRE COM 0 RAIO INTERNO" 

50 INPUT I 

60 LET A = PI * (E**2 - 1**2) 

70 PRINT "A £PEA DO ANEL 2:"; A 
80 PRINT "METROS QUADRADOS 
90 STOP 


c) Tem-se no centro de uma praqa circular 
uma piscina tambem circular. 

Os raios interno e externo sao respectiva 
mente 7 e 13 metros (veja a Figura 1)^ 

Qual e a area disponivel para as pessoas 
na pra$a e que nao estejam dentro da piscina? 

Bern a resposta e muito simples e e dada 
pela formula que da a area de um anel circular 




pouco- roais elaborados e que terao urn grande va 
lor para que o(a) leitor(a) possa entender pro 
gramas mais extensos que vem at pela frente. 

Inclusive no "FORMULA-!" que e o 39 pro- 
grama-exeraplo que apresentamos ja as coisas vao com 
plicar um pouco mais. 

Mas como ainda estamos na "F0RMULA-2"cres 
cendo em perlcia e velocidade at vao novos progra- 
minhas numericos. 

a) 0 rei Pe lrder indiscutlvel da 
ilha Descanse Sempre resolveu distribuir uma pe- 
quena parte da sua grande fortuna no dia dedicado 
a festa do peixe. 

Ele deu 1 u.m. (unidade moretaria) para o 
primeiro native, para os proximos dois ele deu pa¬ 
ra cada um 2 u.m., para os tres seguintes ele deu 
3 u.m. para cada um e assim por diante, 

0 programa que vem a seguir impede que al 
gum nativo receba mais que 100 u.m. 
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A formula para o calculo estimativo do nu 
mero de nativos que vive na ilha e 

„ _ x(l+ x ) 
r 2 

e o rei Pe "48" foi aconselhado pelo feiticeiro a 
escolher um valor inteiro para x entre 34 e 134. 

Com esse programinha o rei Pe "48"sabera, 
em funqao da sua escolha do x quanto dinheiro dis- 
tribuiu no total, quantos suditos atendeu e naeven 
tualidade de nao "agraciar" alguns qual e o seu nu 
mero. 


10 PRINT "A DISTRIBUigAO DO DINHEIRO DE Pfi ’48™ 

15 INPUT X 

20 LET P = X*(l+X)/2 
30 LET K = 1 
35 LET T = 0 
40 LET T = T + K * K. 

50 LET N - (1 + K) * K/2 
60 IF K >100 THEN GOTO 500 
70 LET K = K + 1 
80 IF N > = P THEN GOTO 600 
90 GOTO 40 

500 PRINT "0 N0MERO TOTAL DE NATIVOS AGRACIADOS £0"; N 
505 PRINT 

510 PRINT "ALGUNS NAO VAO RECEBER NADA, POIS MAIS QUE 
100 U.M. NINGUfiM PODE RECEBER" 

520 PRINT "FICARAM H VER NAVIOS O"; P-N ; "ONATIVOS" 
525 PRINT 

530 PRINT "Pfi ’48 1 DISTRIBUIU UM TOTAL DE: 

535 PRINT T; "□ U.M." 

540 STOP 


600 PRINT "TODOS OS NATIVOS FORAM AGRACIADOS" 
610 PRINT "NUM TOTAL DE:"; P; "OPESS0AS" 

620 PRINT "Pfi ’48' DISTRIBUIU UM TOTAL DE:" 
625 PRINT T; "Ou.M." 

630 GOTO 540 


Comentavios: 


Na realidade nesse programinh-a na varia- 
vel T se acumula o total distribuido, com a varia - 
vel N se representa o numero de pessoas ja "agra- 
ciadas" e cujo total constitui uma progressao arit 
metica (P.A.) comparando-se o mesmo com P que e a 
populagao que recebera o beneficio (linha 20). 

Com a variavel K controla—se a quantia ma 
xima a ser distribuida que e de 100 u.m. ou seja 
nao raais que 100 u.m. serao dadas a 100 nativos di 
ferentes. 

Na realidade estamos analisando as seguin 
tes series 



19 nativo 

2 nativos recebem 2 u.m.cada um 

3 natives recebem 5 u.m.cada um 


(1) + (2+2) + (3+3+3) + (4+4+4+4) +,..+ (k+k+ ... k) 

till - 


T = l 2 + 2 2 + 3 2 + 4 + ... + k — Serie que da 

o dinheiro 
distribuido 

N=l 2 +2 + 3 + 4 +,..+k-— Serie que da 

o numero de na 
tivos benefit 
ciados. 

A restrigao obvia e que a soma de todos 
os nativos nao pode ultrapassar P e alem disso,co 
mo ja foi dito nenhum nativo pode receber mais que 
100 u.m. (K <- 100). 
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b) Vejamos agora como se pode elaborar um 
programa era BASIC para gerar numeros pseudo-aleat 
rios no interval© de 1 ate 10. 

Numeros pseudo-aleatorios sao numeros ge- 
rados por computadores de uraa forma determinlstica. 

Contudo aos numeros pseudo aleatorios se 
aplicaram muitos testes estatisticos de aleatorie- 
dade e para finalidades praticas eles podem ser 
considerados aleatorios. 

Para uma alimentagao inicial do programa 
pode-se entrar com um numero N entre 1 e 99. 

10 PRINT ’’PROGRAMA GERADOR DE NtJMEROS ALEATORIOS" 

15 PRINT 

20 PRINT "ENTRE COM UM NflMERO CHAVE" 

30 INPUT N 

40 LET R = .01 * N 

50 PRINT "At VAO ALGUNS NtJMEROS ALEATORIOS" 

60 FOR I = 1 TO 25 

70 LET R = (PI + R)**5 - INT((PI + R)**5) 

80 LET T = 10 * R 
90 LET X = INT T 
100 IF X >10 THEN GOTO 70 
110 IF X<1 THEN GOTO 70 
120 PRINT ”X="; X; "OO"; 

130 NEXT I 
140 STOP 

,Como sugestao, entre inicialmente com 
N = 43, que e a idade atual do autor e veja 25"lin 
dos" numeros aleatorios. 


IO\ 
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c) A torre de Hanoi 

Um "jogo" foi inventado pelo matematico 
franees, Edouard Lucas no seculo XIX e consistia 
de um numero de discos (n £-3) de varios diametros 
com o maior na parte de baixo e o menor na parte 
de cima 


A finalidade do jogo era transferir o con 
junto de discos do pino onde estavam empilhados pa 
ra qualquer um dos outros, movendo um disco de ca- 
da vez e nunca colocando um disco maior no topo de 
um que e menor. 

£ claro que o intuito da brincadeira erea 
lizar isto no menor numero possivel de movimentos 

Lucas charaou ao jogo de torre de Hanoi e 
provou que o numero de movimentos tninimo possivel 
para terminar o jogo e 2 n ~l onde n e o numero de 
discos , 

Assim conforme o numero de "andares" da 
torre de Hanoi teremos o seguinte numero de movi¬ 



mentos . 
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Tabela 1 


Com o programinha abaixo da para sentir os 
resultados da Tabela 1 para N <13. 

10 PRINT "TORRE DE HANOI" 

20 LET N « 13 

30 PRINT "0 NttMERO M&XIM0 DE DISCOS 
40 FOR J = 2 TO N 
50 LET M = 2**J-1 

60 PRINT "PARAO"; J; "□DISCOS”; M; "OM0VIMENT0S"; 

70 PRINT "OdJEVEM SER FEITOSV 
80 NEXT J 
90 STOP 

0.I. - Para maiores detalhes sbbre a torre de Hanoi 
uma sugestao e a soluqao recursiva apresentada por 
Joao Henrique A. Franco no seu artigo "Torre de Ha¬ 
noi: uma soluqao em BASIC" - Micro Sistemas N9 22 
(julho-1983). 


Esta e a ultima selegao de pequenos pro- 
gramas com resultados importantes. 

a) No programs inicial iremos obter os nu 
meros de Armstrong ou seja aqueles nos quais a so¬ 
ma dos cubos dos seus algarismos e igual ao pro- 
prio numero. 

£ este um bom pretexto para se usar fun- 
qoes que se aplicam a cadeias de caracteres ou se¬ 
ja a variaveis STRING. 

10 PRINT "NUMEROS DE ARMSTRONG" 

20 PRINT "ENTRE COM 0 NCMERO MAXIMO" 

30 INPUT M 
40 CLS 

45 PRINT "ENTRE 0 E O M;"0EXISTEM OS N. DE ARMSTRONG" 
50 PRINT 
60 FAST 

70 FOR N = 0 TO M 
75 LET S « 0 
80 LET N$ = STR$ N 
90 LET L = LEN N$ 

100 FOR J = 1 TO L 

110 LET S = S + VAL N$(J)**3 
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120 NEXT J 

130 IF INT S = INT N THEN PRINT N 
140 NEXT N 

Comentario: 


Caso voce entre com M = 500 obtera os se- 
guintes numeros de Armstrong 0, 1, 153, 370, 371, 
407. 

C Gos tou ? ? ? ? 

■.407 = 4 3 + 0 3 + 7 3 = 64 + 0 + 343 = 407 


b) A constituigao da materia e atualmen- 
te bem conhecida. 

0 programa que vem a seguir representa na 
tela um atomo simples do lltio 


[M 


e apresenta uma pequena animaga'o com os 3 eletrons 
movimentando-se em torno do nucleo atomico. 

0 nucleo por sua vez e constituido de pro 
tons e neutrons. 

Ai vai o programinha 


10 PRINT "STOMO" 

20 FOR K = 1 TO 32 
25 PRINT " * 

30 NEXT K 

35 PRINT "MASSA AT0MICA DO LlTIO £ 6” 

40 PRINT "0 REPRESENTA 0 ELETRON (-)" 

50 PRINT ”0 REPRESENTA 0 PROTON (+) NO 
60 PRINT "0 REPRESENTA 0 NEUTRON NO | 
70 PAUSE 750 
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80 FOR V = PI - PI TO PI + PI STEP .4 


90 LET X = 9 * COS y 
100 LET Y = 5 * SIN V 
110 CLS 

120 PRINT "LI" 


Sera que o TK-85 gosta 


dessa forma de expri- 
mir a variagao de V? 


Resp.: Gosta 


130 PRINT AT Y + 10, X + 17; "0 M 
140 PRINT AT X + 10, Y + 17; "0" 

150 PRINT AT 9,17; "HOT :AT 10,16; " QOSO 
AT 11,19; "fl " 


160 NEXT V 


170 GOTO 90 


c) Agora vai o programa que faz a adigao 
de vetores. 

Inicialmente vejamos um pouco de etimolo- 
gia caro(a) leitor(a) e recordemos a1gumas defini 
goes . 

Vetor vem do latim vehere que quer dizer 
levar, carregar, transporter. 

0 norae de vetor corresponde justamente ao 
conceito do transporte da origem A a extremidade 

B. 

A definigao por "concretizagao" e a se- 

guinte: 

Vetor e o ente geometrico dotado de modu¬ 
lo t diregao e sent'ido , 

Em outras palavras; grandeza caracteriza- 
<3a por numerOj diregao e sentido . 

A representagao grafica de um vetor e um 
segmento retillneo orientado. 

Entende— se por mSdulo ao valor absoluto 

C. aritmet i co , positivo) do vetor medido com unidade 
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arbitraria de extensao linear e em escala apro- 
priada. 

Bern depois dessas rapidas nogoes voce es- 
ta apto a entender o programa de adigao de dois 
vetores, 

5 CLS 

10 REM SOMA. DE DOTS VETORES NO PLANO 

20 PRINT "ENTRE COM OS DADOS DO PRIMEIRO VETOR NA FORMA: 

MODULO (Ml) E ANGULO (Al) EM GRAUS" 

30 INPUT Ml 
40 INPUT Al 
50 LET R1 - Al * Pl/180 
60 LET XI = Ml * COS R1 
70 LET Y1 = Ml 
75 PRINT 

80 PRINT "ENTRE COM OS DADOS DO SEGUNDO VETOR NA FORMA: 

MODULO (M2) E SNGULO (A2) EM GRAUS 1 ' 

90 INPUT M2 
100 INPUT A2 

110 LET R2 * A2 * Pl/180 
120 LET X2 = M2 * COS A2 
130 LET Y2 = M2 * SIN R2 
140 LET X = XI + X2 
150 LET Y = Y1 + Y2 
160 LET R ■ ATN (Y/X) 

170 LET A = 180 * R/PI 
180 LET M = SQR(X*X + Y*Y) 

185 PRINT 

190 PRINT "0 MODULO DO VETOR SOMA fi 
DADES" 

200 PRINT ”0 SNGULO DO VETOR SOMA £ IGUAL A:”; A; "OgRAUS" 
205 PRINT 



43 


210 PRINT "AS COMPONENTES DESSE VETOR SOMA SAO:" 

220 PRINT "X*"; X; TAB 18; "Y="; Y 

230 PRINT "VOCfi QUER ENTRAR COM OUTRO VETOR (S/N)?” 

240 INPUT R$ 

250 IF R$ » "S" THEN GOTO 5 
260 STOP 


Comentario: 

Aplique o seu programa para os vetores da 

Figura 3 



Figura 3 


Na Figura 3 |v^| e |v 2 | sao os modules 
-+■ -y 

dos dois vetores v^ e v 2 * 

0 modulo do vetor soma resultante deu 

8.323? 

E os outros re suit ados quais sao? 

Que tal agora voce ampliar este ultimo 
programinha para tres vetores V^, ^2 e ^3 concor ~ 
rentes sendo que os seus modulos sao dados pelas 
expressoes 
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de estimar quanto devemos ter de areia, agregado e 
cimento para obter o concreto que sera usado para 
fundir uma laje. 

Para auxilia-lo nessa "dificil" tarefa e 
que apresentamos o programa "MATERIAL PARA CONCRE-* 
TO" . 

Inicialmente devemos conhecer as formulas 


que permitem esse calculo antes de entender e es- 
crever o programa em BASIC. 

Olhando em qualquer livro de Materials de 
Construgao da area Civil obtemos a seguinte infor- 
magao "um metro cubico de concreto feito de uma 
parte de oimanto , x partes de areia e y partes de 
agregado ou seja uma mistura do tipo 


necessita: 


1 : x : y 

- .. . 1,5 x 

sacos de cimento, me 


tros cubicos de areia e ■=— 1 —— metros cflbicos de 

1 + x + y 


agregado. 

Na realidade nao e tao importante assim 
entender de onde vieram essas formulas e elas po- 
dem ate variar um pouco se nos variarmos o peso de 
um saco de cimento. 
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Sera realmente tudo esclarecido quando vo 
ce for do ramo de construqao civil. 

Porem o nosso negocio e manipular as for¬ 
mulas dadas e apresentar urn simples e util progra- 
minha no seu TK-85 faci}.mente adaptavel a realida¬ 
de de cada um. Ta!!! 

10 PRINT "CSLCULO DO CONCRETO" 

20 PRINT 

30 PRINT "QUAL £ A ESPESSURA DA LAJE (EM MM)?" 

40 INPUT E 

50 PRINT "QUAL £ 0 SEU COMPRIMENTO (EM M)?" 

60 INPUT C 

70 PRINT "QUAL £ A SUA LARGURA (EM M)?" 

80 INPUT L 
90 PRINT 

100 LET V = .001 * E * C * L 

110 PRINT "VOLUME £ IGUAL A(I)";V; "OmETROS CObiCOS" 

120 PRINT 

130 PRINT "QUANTAS PARTES DE AREIA PARA UMA PARTE DE 
CIMENTO? " 

140 INPUT X-■— | Entre aqui com 3 

150 PRINT "QUANTAS PARTES DE AGREGADO PARA UMA PARTE 
DE CIMENTO?" 

160 INPUT Y—-— | Entre aqui com 4 ] 

170 LET T = 1 + X + Y 
180 LET P = V/(0.02 * (1 + X + Y)) 

190 LET Q = V * X * 1.5/T 
200 LET R = V * Y * 1.5/T 

210 PRINT "USANDO UMA MISTURA DE 1:"; X; ";Y 
220 PRINT "VOC£ NECESSITA" 

230 PRINT P; "OSACOS DE CIMENTO," 

240 PRINT Q; " OMETROS COBICOS DE AREIA E" 
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250 PRINT R; "OMETROS COBICOS DE AGREGADO" 

260 STOP 

Comentarios sobre o programa 

Na 1? parte do programs sao dadas todas 
as dimensoes da viga ou da laje de concreto, calcu 
lando-se o seu volume (linhas 30-100). 

0 programs entao pergunta sobre a taxa ou 
proporqao da mistura usando as formulas propostas 
0 nos da como resultado final os sacos de cimento 
e o volume de areia e agregado necessario. 

Finalmente, os resultados sao impressos 
de tal forma que voce caro leitor ou estimada lei— 
tora possa facilmente percebe-los na tela. 




A fungao RND diferentemente de outras fun 
goes numericas, nao tern argumento. 

Ele gera um numero aleatoric ou como al- 
guns dizem randomico entre 0 (valor que pode ocor- 
rer) e 1 (valor que nao pode ser assumido). 

As fungoes RND e PI sao unarias ou seja 
com um unico operando. 

RND e RAND estao na mesma tecla porem ofa- 
viamente nao sao a mesma coisa. 

RND e uma fungao. 

RAND e uma palavra chave que permite con- 
trolar a aleatoriedade de RND. 

RND nao e verdadeiramente aleatorio, vis- 
to que segue uma sequencia de 65536 numeros tao 
misturados que parece ser aleatorio. 

Dessa forma diz—se que RND e um pseudo- 
aleatorio. 

Voce pode usar RAND para inic.ializar RND 
em diferentes lugares na sequencia digitando RAND 


50 
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e um numero entre 1 e 65535 e entao o 1 NEWLINE \ . 

Ja RND 0 (e o zero nao precisa ser digita 
do) age de forma bem diverse. 

Com esse comando define-se onde inicia o 
RND ao longo do tempo que o seu monitor estiver li 
gado e dessa forma e genuinamente aleatorio. 

Para mais alguns detalhes coraum ler o Ca- 
pltulo 5.2 do seu Manual do TK-8S. 

Se voce nao tern um TK, ja esta pensando 
em adquirir um nao e? 

Chega de papo e vamos a alguns programas 
bem simples mas muito importances para a completa 
compreensao de RND e do RAND. 

a) Vamos gerar 200 numeros aleatorios,mul 
tiplica-los por 5, tomar a sua parte inteira ob ten 
do dessa forma os numeros 0., 1, 2, 3 e 4 e classi- 
fica-los ou seja dos 200 numeros gerados quantos 
nos levam ao 0, ao 1, ao 2, ao 3 ao 4. 

0 ideal seria ter em cada "classe" 40 nu¬ 
meros visto que eliminamos da classificagao os nu¬ 
meros 5, 6, 7, 8 e 9 porera como se trata de uma 
amostra o resultado e um pouco diverso do teorico 
esperado. 

10 CLEAR - 

20 RAND 
25 DIM A(5) 

30 FOR I = 1 TO 5 
34 LET A(I) = 0 
36 NEXT I 
40 LET T = 0 

50 PRINT "GERANDO, ACUMULANDO E CLASSIFICANDO" 


Com esse comando cancelam-se 
todas as variaveis, liberan- 
do o espa§o na memoria por 
elas ocupado 





60 FOR K = 1 TO 200 
70 LET N = INT(5*RND) 


80 IF N - 0 THEN LET A(1)^A(1)+1 
90 IF N » 1 THEN LET A(2) = A(2) + 1 
100 IF N = 2 THEN LET A(3) = A(3) + 1 

110 IF N = 3 THEN LET A(4) = A(4) + 1 

120 IF N = 4 THEN LET A(5) = A(5) + 1 

130 NEXT K 
135 PRINT 

140 FOR J a 1 TO 5 
150 LET T = T + A(J) 

160 PRINT J - 1; Q"; A(J) 

170 NEXT J 
180 PRINT 

190 PRINT "*************" 

200 PRINT "TOTAL E: u ; T 
210 PAUSE 300 
220 CLS 
230 GOTO 10 


da um numero inteiro entre 
0 e 4 




b) Veja agora melhor ainda a qualidade do 
seu gerador de numeros aleatorios quando de 100 nu 
meros gerados deveriamos ter metade abaixo de .5 
ou 50 e metade acima de .5 ou em numeros intei— 
ros acima de 49 como indicamos no programa abaixo. 


10 LET N = 0 
20 LET M = 0 
25 PRINT 

30 FOR I = 1 TO 32 
40 PRINT 
50 NEXT I 

55 FOR K = 1 TO 100 
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60 LET R = INT(100 * RND) 

70 IF R, < 50 THEN LET M = M+l 
80 IF R > 49 THEN LET N = N+l 
90 NEXT K 

100 PRINT N; "DaCIMA DE 49" * 

110 PRINT M; "DABAIXO DE 50" 

120 FOR 1=1 TO 32 

130 PRINT 

140 NEXT I 

150 PRINT 

155 PAUSE 200 

160 GOTO 10 



usado em tantos jogos de lazer como o crepe,poquer 
de dados, perseguigao , etc. 

Vejamos como o seu TK-85 se comporta como 
um honesto e anti-sentimental crupie. 

a) Ai vai uma forma rapida para introdu- 
zir dois dados reais a qualquer jogo real atraves 
do seu TK-85. 

Neste programa jogam-se dois dados e veri 
fica-se os resultados ou seja, olha-se para as fa¬ 
ces dos dados voltadas para cima. 

10 CLEAR 

20 PRINT "PARA JOGAR DOIS DADOS, APERTE QUALQUER TECLA" 

30 IF INKEY$ = ""THEN GOTO 30 
40 CLS 

50 GOSUB 500 

60 PRINT "A******** 11 

70 PRINT "*0"; X; Y; "□*" 

80 PRINT "*********" 

90 PRINT 

95 IF ■ INKEY$ = "" 

97 CLS 


THEN GOTO 95 


54 


100 GOTO 10 

500 LET X = INT (RND*7) 

510 IE X <1 THEN GOTO 500 
520 LET Y = INT (RND*7) 

530 IF Y <1 THEN GOTO 520 
540 RETURN 

b) Caso o seu jogo necessite mais do que 
dois dados e so modificar o programa do Item a) e 
vamos ajuda-lo nesse sentido. 

10 CLS 

20 PRINT "PARA JOGAR OS QUATROS DADOS, APERTE QUALQUER 
TECLA" 

30 IF INKEY$ = "" THEN GOTO 30 

40 FOR R - 1 TO 2 - 

50 GOSUB 500 
60 PRINT "a******** 11 
70 PRINT "* O" ; X; " 0*0" ;Y;" O*" 

80 PRINT "*********" 

90 PRINT 
92 PRINT 
95 PAUSE 200 
100 NEXT K 
110 PAUSE 300 
120 GOTO 10 
500 RAND 

'510 LET X = INT (7*RND) 

520 IF X <1 THEN GOTO 510 
530 LET Y = INT(7*RND) 

540 IF Y <1 THEN GOTO 530 
550 RETURN 


Com este LOOP vamos 
poder imprimir todos 
os numeros nas 4 fa 
ces que estao para 
cima. 




Sao essas as mercadorias que mais se va- 
lorizam nos ultimos tempos. 

E evidente que para funcionar com eficien 
cia e lucidez nos dias de hoje ,deve-se eliminar to 
do o tempo perdido em calculos que podem ser fei- 
tos pelo seu super TK-85. 

Assim voce tera tempo para relaxar, cla- 
rear as ideias e recompor o seu flsico. 

Ai voce tambem rendera mais e corao conse- 
qiiencia todos os seus negocios tambem. . . 

Apresentaraos agora um programa que calcu- 
la ° sa lario bruto em fungao do numero de boras 
tfabalhadas no mes, que e no mlnimo 180h. 

Caso qualquer um dos seus empregados (no- 
e que voce e o dono de algum negocio...) ultra- 
Passe 180h entao pelas horas extras paga-se ao me 

50% a mais do valor da hora trabalhada em cond 
S°es normals, 

Simule algumas situagoes para testar oseu 

Programa. 


1W 
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5 CLS 

10 LET E = 0 
20 LET S = 0 

30 PRINT "VALOR DA HORA TRABALHADA = CRD"; 

40 INPUT V 
50 PRINT V 
55 PRINT 

60 PRINT "NtJMERO DE HORAS TRABALHADAS =□"; 

70 INPUT H 

80 IF H <180 THEN GOTO 70 
85 PRINT H 

90 IF H >180 THEN LET E = H - 180 
92 IF H >180 THEN GOTO 120 
•95 LET S = H*V 
100 PRINT 

105 PRINT "SALARIO BRUTO = CRD"; S 
110 GOTO 140 

120 LET S = 180 * V + E * 1.5 * V 
130 GOTO 100 

140 PRINT "VOCt QUER ENTRAR COM OUTRO CALCULO (S/N)?" 
150 INPUT R$ 

160 IF R$ = "S" THEN GOTO 5 
170 STOP 


O.I. - No Micro Mundo de setembro 
sec 530 TK-Mundo aparece one forme 
te de calcular os juros compostos 
pital. 


de 1983 CN? 7) na 
muito interessati 
e o aumento de c 


0 destaque especial do programs e a forma es 


pecial de exibir o resultado graficamente. w 

Todo(a) "computamaniaco(a)" que se preze nao 


pode deixar de ter o seu Micro Mundo e principalmen 
te saber como se manipulam os calculos com juros. 


1 mi 


L' se o seu TK-85 para calcular ^ap'idamen- 
te o valor dos pagaraentos mensais em vista das va- 
rias alternativas possiveis como o valor que voce 
quer pagar a vista (V), do prego total a vista (P) 
do produto que quer adquirir, e do numero de meses 
(N) no decorrer dos quais voce quer distribuir o 
resto da sua dlvida desde que P-V >0 sabendo que 
sera cobrada uma taxa de juros (J) ao mes. Como 

aplicagao varaos supor que estamos comprando um au- 
tomovel. 

Observagao tmpovtante 

Como a inflagao esta violenta o dinheiro 
s era considerado em u.m. (unidades monetarias) pa — 
dar impress ao que se gasta pouco ou que as coi~ 
sas custam menos. 

Na realidade estamos hoje como na Figura 
5. 



Al vai o programa: 

10 LET A = 0 

20 PRINT "PAGAMENTO DE UM AUTOMCVEL" 
25 FOR L - 1 TO 25 
30 PRINT 
40 NEXT L 
43 PRINT 

50 PRINT ”0 VALOR DO CARRO E: M ; 

51 INPUT P 
60 PRINT P 

70 PRINT "A QUANTIA PAGA A VISTA 

80 INPUT V 

90 PRINT V 

100 FOR I = 1 TO 31 

110 PRINT 

120 NEXT I 

122 PRINT 

130 LET R - P - V 

140 IF R < 0 THEN GOTO 350 

150 IF R = 0 THEN GOTO 380 

155 PRINT 


X 60 PRINT "VOCfi AINDA DEVEO’jR;"0 U.M." 

165 PRINT 
X 70 INPUT N 

180 PRINT "N= ,t ;N;"D E 0 NCMERO DE MESES PARA SAMAR 0 
DEBITO" 

185 PRINT 
190 INPUT J 

200 PRINT "J=";J;"0 E A TAXA DE JUROS AO MES" 

205 PRINT 

210 FOR I = 1 TO 31 
215 PRINT 
220 NEXT I 
225 PRINT 

230 PRINT "0 VALOR DA PRESTAQAO MENSAL fi" 

240 LET A = R * (1 + J) ** N * J/((l + J) *N-1) 

245 LET A = INT (A * 100 + .5) / 100 
250 PRINT "M- ,, ;A; ,, 0 U.M." 

260 FOR I = 1 TO 32 
270 PRINT 
280 NEXT I 
290 GOTO 490 

350 PRINT M V0C6 PAGOU MAIS DO QUE DEVIA POR QUE?" 

360 GOTO 490 

380 PRINT "VOCE NAO DEVE MAIS NADA" 

490 PRINT "CASO VOCE QUEIRA TESTAR OUTRO PLANO TECLE S 

500 IF INKEY$ = "" THEN GOTO 500 

510 IF INKEY $ = "S" THEN GOTO 600 

520 STOP 

600 CLS 

610 GOTO 10 


60 


Comentarioe: 

Para aplicar o programa "AMORTIZA^AO DE 
UMA DlVIDA" suponha que voce tem os seguintes da¬ 
dos (Tabela 2). 


p 

V 

N 

J 

M 

10000 

1000 

12 

0,10 

?? 

18000 

5000 

6 

0,11 

?? 

20000 

21000 

1 

? 

?? 

30000 

30000 

? 

7 

7 7 


Tabela 2 


Da para obter M em todos os casos? 

Precisa do N e J em todos os casos? 

Ao responder essas perguntas vode ira en- 
tender completamente o programa. 


0.1. 1 - Na Microhobby N9 3 voce encontra um arti- 
go interessantissimo de Flavio Rossini "Matematica 
Financeira em BASIC TK" e nele sao desenvolvidas 
duas subrotinas que execut^m respectivamente,a "en 
trada" e a "saida" de dados no padrao financeiro 
ou seja numeros encostados a direita (e nao a es- 
querda), com duas casas depois da virgula (e nao 
ponto) e com um ponto entre cada 3 algarismos. 

O.X. 2 - Na Micro Sistemas N9 17 (fevereiro del983) 
aparece o artigo "Calcule o tempo de retorno do seu 
investimento" de Fausto Arinos de Almeida Barbuto 
e acompanha o mesmo um programa pronto para o TK- 
85 que permite planejar os seus investimentos. 



Ao se gastar com dlvulgagao, quer em ra¬ 
dio, quer em jornal, quer em T.V. ou por qualquer 
outro meio e fundamental saber o que isto pode 

trazer de lucro para voce. 

Neste programa "DIVULGANDO" sao compara- 
dos os custos de dois meios de comunicaqao e con- 
clui-se dos dois qual e o mais favoravel em vista 
de quantas pessoas ele atinge. 

0 seu TK-85 e ensinado a fazer a compara- 

gao na base de um custo por mil. 

Digamos que voce vive numa grande cidade 
do interior do Estado de Sao Paulo e nela existem 
dois grandes jornais o "Noticias Vespertinas e o 
"Novas Matutinas." com respectivamente 28333 e 
31119 leitores cativos. 

0 "No1 1 cias Vespertinas" cobra por um anun 
cio de certo tamanho 249 u.m. e o Novas Matutinas 
pelo mesmo anuncio cobra 299 u.m. 

Por qual voce deve optar? 

Baseie a sua conclusao no menor custo por 
1000 leitores. 

Bern, ai vai o programa que permite obter 
a resposta certa!!! 
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249 u.m. 


'Novas Matutinas" 


299u. m.1 


10 PRINT "PRIMEIRO MEIO" 

20 INPUT N$ -—- "Noticias Vespertinas") 

30 PRINT N$ 

40 PRINT "CUSTO DO ANCNCIO:"; 

50 INPUT A -— f249 u.m. 

60 PRINT A; "Ou.M.” 

65 PRINT 

70 PRINT "CIRCULAgAO: 

80 INPUT C -— |28333 

90 PRINT C 

100 LET M = 1000 * A/C 
110 PRINT "SEGUNDO MEIO: 

120 INPUT P$ — "Novas Matutinas" 

130 PRINT P$ 

140 PRINT "CUSTO DO ANTlNCIO:"; 

150 INPUT Q -— |299u.m. 

160 PRINT Q; "OU.M." 

165 PRINT 

170 PRINT "CIRCULAgAO: 

180 INPUT R -— 3UlT| 

190 PRINT R 

200 LET S = 1000 * Q/R 
210 PRINT 
220 PRINT 

230 PRINT N$; m DCPM:"; M; "QU.M.” [—- 

Custo por 

240 PRINT P$ ; " OCMP: S; "QU.M." - 

250 IF S >M THEN PRINT N$;"OE A MELHOR ESCOLHA" 

260 IF M>S THEN PRINT P$;"D£ A MELHOR ESCOLHA" 

270 IF M = S THEN PRINT "nIo TEM DIFERENQA " 

300 PRINT 
310 PRINT 

320 PRINT "PARA CONTINUAR PRESSIONE QUALQUER TECLA" 

330 IF INKEY$ = "" THEN GOTO 330 
340 CLS 
350 GOTO 10 


Custo por mil CPM 



Neste programa o TK-85 ira testar a sua 


habilidade (sera que ela ainda existe?) em aritme- 
tica elementar. 

Nao fique tao nervoso assim, pois > o in- 
tuito final e "’exerci tar " voce nas quatro opera¬ 
tes elementares (adigao, subtragao, multiplicagao 
e divisao). 

Alias quern vai escolher a operagao e o 
TK-85 e nao voce. Nao e em tudo que voce pode ser 
o primeiro, nao e? 

0 que voce deve fazer sendo o "segundon" 
£ responder corretamente as perguntas. 

Alias o que tem de marido "primeiron" fa- 
lando sempre, sim senhora, da para assustar... 

Cada vez que voce for solicitado a respon 
der; os valores escolhidos serao diferentes, visto 
Tue, sao aleatorlamente selecionados pelo seu TK-85. 

Apos a pergunta ter sido exibida na tela 
voce e imediatamente "convidado" a "enviar" a res- 
Posta certa entre quatro respostas possiveis. £ no 
fundo um teste de multi pla escolha. 

As alternatives foram arrumadas de 
^°rma que voce podera errar facilmente. 


tal 
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E mais um lindo truque, ou seja, um ar- 
dil, do seu TK-85 que nao quer "te ferrar" mas tarn 
bem nao esta lhe dando muita moleza, 

Nao se impoe neste programa nenhum'limite 
ao(a) usuario(a) quanto ao tempo de resposta. 

Nao se trata de teste das quatro opera- 
goes feito com rapidez, e netn uma partida de xa- 
drez relampago, e sim da sua destreza aritmetica. 

Para cada resposta certa voce recebe 1pon 
to, porem a cada resposta errada voce e notificado 
do fato e alem disso recebe o resultado certo para 
nao esquecer mais. 

Para parar o programa tecle simplesmente 
"7". E o numero de sorte do Sacha e-como para-se es 
te programa. 

10 LET K = 0 -•— respostas certas 

20 LET P = 0 -— contagem de perguntas res- 

30 DIM M(4) pondIdas 

40 LET R = INT (RND *4+1) 

50 LET P = P + 1 

60 GOSUB R * 100 + 200 

70 PRINT AT 3,6; "TESTE DE ARITMETICA" 

80 LET S = INT (RND *4+1) 

90 LET M(S) = A 
100 GOSUB 700 

110 PRINT AT 7,3;"QUESTAO0== >□'; X; 0$; Y; "0-0?" 

120 PRINT AT 11,1; 

130 FOR L - 1 TO 4 

140 PRINT L; "®"; M(L); "GO"; 

150 NEXT L 

160 PRINT AT 17,8; "ESCOLHA Ol ,2,3 QOU Q4" 

170 INPUT N 

180 IF N = 7 THEN GOTO 900 


190 IF M(N) = A THEN GOTO 800 

200 PRINT AT 18,1; "ERRADO,QaOALTERNATIVAO CERTA OeRAO 
Ad"; S 
210 GOTO 820 

300 LET X = INT (RND * 90 + 10) 

310 LET Y = INT (RND * 90 + 10) 

320 LET A - X + Y 

330 LET 0$ = "□ + □" 

340 RETURN 

400 LET X - INT (RND * 80 + 100) 

410 LET Y = INT (RND * 95 + 10) 

420 LET A = X - Y 

430 LET 0$ = 

440 RETURN 

500 LET X * INT (RND *25+4) 

510 LET Y - INT (RND *25+4) 

520 LET A = X * Y 

530 LET 0$ = "□*□" 

540 RETURN 

600 LET Y = INT (RND *13+2) 

610 LET X = INT (RND * 25 + 10) * Y 

620 LET A = X/Y 

630 LET 0$ = 

640 RETURN 

700 FOR J = 1 TO 4 

710 IF M(J) =* A THEN GOTO 760 

720 LET M(J) = INT (RND * (J+l) - 3)*5, + A 

730 FOR Z = 1 TO (J - 1) 

740 IF M(Z) » M(J) THEN GOTO 720 
750 NEXT Z 

755 IF M(J) = A THEN GOTO 720 
760 NEXT J 
770 RETURN 
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800 LET K = K + 1 

810 PRINT AT 18,8; "***DCORRETOO***" 

820 PRINT AT 21,10; "CONTAGEM: □ K; P 

830 PAUSE 300 
840 CLS 
850 GOTO 40 

900 LET D = K/(P - 1) * 100 
910 CLS 

920 PRINT AT 11,8; "CONTAGEMOFINAL: INT D 

Pontos de interesse neste programa 

1) A linha 60 tern uraa instrugao GOSUB calculado ,que 
leva a subrotina apropriada para uma pergunta de 
adigao, subtragao, multip 1 icagao ou divisao. 

2) Na linha 110 a pergunta, com a operagao escolhi 
da aleatoriamente, e armazenada em 0 $ e exibida 
na linha 7 da tela. 

3) Linhas 300-640 

Nessas linhas estao dadas as instrugoes que per 
mitem a obtengao de numeros aleatoriamente es- 
colhidos e que serao usados nas operagoes. 

4) Linhas 700-770 

f? al que esta a "mutreta" do TK—85, que escolh.e 
ou melhor gera quatro alternativas que em unt da 
do nlvel de ignorancia representam um engodo pa 
ra que voce erre. 

Parece ate um convite ao pecado aritmetico,.. 

E tem is so ? ? ? I 
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5 ) Linhas 800-880 

Estas linhas sao apenas ativadas quando ocorre 
a resposta certa e atravSs delas e que se exibe 
a razao de respostas certas para o total de per 
guntas respondidas. 

6 ) Linhas 900-920 

Caso a querida leitora ou o respeitado leitor 
se "encher” do programinha pode para-lo elegan- 
tetnente com a pressao do seu lindo dedinho na 
tecla "7". 

Com isto ter-se-a o escore final (em porcenta- 
gem) e para-se o sofrimento matematico. 

Torne o programa mais dinamico dando um 
tempo para responder e caso o tempo se esgote con- 
te como se tivesse respondido erradamente. 

Bern em testes de raultip1a-escolha e me¬ 
lhor nao responder, do que responder errado se bem 
que em alguns exaraes, obriga-se ao aluno respon¬ 
der inclusive quando este nao tem certeza da res¬ 
posta !?!? I 

0 ,i, - Na revista Micro Sistemas N9 23 (agosto de 
1983) aparece o programa "Professor Corujinha, no 
TK-82-C" de Ivo D’Aquino Neto. 

0 programa destina-se a auxiliar as crian 
gas no processo de aprendizagem de operagoes mate- 
maticas elementares. 





creta" os usuarios a comprarem automoveis que te- 
nham potenci.a cada vez manor e com isto haja urn 
gasto menor de gasolina um certo pais adotou o se- 
guinte sistema progressive e violento de cobranqa 
de taxas para o 1 icenciamento dos veiculos: 


Categoria 

Potencia 
(H.P.) 

Taxa para o licen- 
ciamento em u.m. 

1 

P <50 

isento 

2 

50 <90 

40000 

3 

90 ^P < 160 

200000 

4 

160 ^ P < 250 

800000 

5 

P >250 

2000000 


Tabela 3 


Vamos apresentar um programa que permita 
entrar com a potencia do seu carro e dar a voce co 
mo saida a taxa que devera pagar. 

Simule uma entrada em cada faixa para cer 
tificar~se que o seu programa esta certo. 
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10 PRINT "ENTRE COM OS HP DO SEU CARRO 0"; 

20 INPUT P 

30 PRINT P 

35 IF P <0 THEN GOTO 1000 - 
40 IF P < 50 THEN GOTO 200 

50 IF P < 90 THEN GOTO 300 

60 IF P <160 THEN GOTO 400 
70 IF P <250 THEN GOTO 500 
80 LET T = 2000000 
90 GOTO 700 
200 LET T = 0 
210 GOTO 700 
300 LET T = 40000 
310 GOTO 700 
400 LET T = 2000000 
410 GOTO 700 
500 LET T = 800000 
510 GOTO 700 

700 PRINT "A TAXA PARA LICENCIAMENTO £ IGUAL A:C"; T 
710 PRINT 
720 GOTO 20 
1000 STOP 

Como se deve modificar o programa "LICEN— 
CIAMENT0 DE VElCULOS" de tal forma que o valor da 
taxa seja fungao da potencia do carro conforme in- 
dicado na Tabela 4? 


Categoria 

Taxa de licenciamento como 
fun^ao da potencia (u.m.) 

1 

isento 

2 

445 P 

3 

1250 P 

4 

3200 P 

5 

3650 P 


» 

dando-se uma 
potencia negativa pa 
ra-se automaticamen- 
te o programa 



Tabela 4 
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^gSpOStCL. 

Para isto basta introduzir nas linhas 80, 
300, 400 e 500 as seguintes modifica^oes respecti 

' 80 LET T = 3650 * P 
300 LET T = 445 * P 
' 400 LET T = 1250 * P 
500 LET T = 3200 * P 






cessario aumentar os gastos em divulgagao de al~ 
gum produto, se deve baixar o custo de produ£ao, 
se deve aumentar a quantidade vendida para se ob- 
ter um lucro maior, etc. 

Haja duvidas e perguntas, nao e? 

Porem o programs "SENTINDO AS VENDAS" aju 
dara voce a tomar decisoes naais rapidamente quando 
tornar-se gerente, se ainda nao e'. . . 

No programs SENTINDO AS VENDAS usamos as 
seguintes variaveis : 

P -*• prego de venda do produto 
C custo de fabrica^ao do produto 
D -> custo total da divulga^ao 
Q *► quantidade vendida 
L •+ lucro obtido 
F ■+• lucro desejado 


Bern ai vai o programinha... 
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5 CLS 

10 PRINT "FREgO DE VENDA: □"; 

20 INPUT P 
30 PRINT P 

40 PRINT "CUSTO DE FABRICAgSO: O” ; 

50 INPUT C 
60 PRINT C 

70 PRINT "GASTO COM DIVULGAQSO: 

80 INPUT D 
90 PRINT D 

100 PRINT "QUANTIDADE VENDIDA: □ 

110 INPUT Q 
120 PRINT Q 

130 LET L=Q*P-Q*C-D 
135 PRINT 
138 PRINT 

140 IF L <= 0 THEN PRINT "OS NEGCCIOS NAO VAO BEM" 

150 IF L < = 0 THEN GOTO 200 

160 PRINT "UFA, UFA... DEU UM LUCRO L = ";L;"OU.M." 

170 PRINT "VOCE GOSTARIA DE TER UM LUCRO MAIOR?" 

175 IF INKEY$ = THEN GOTO 175 
180 IF INKEY$ = "S" THEN GOTO 300 
190 GOTO 400 

200 PRINT "QUE DESGRAgA, ESTOU PERDENDOO"; ABS L; ,r Ou.M." 
205 PRINT 
210 GOTO 400 

300 PRINT "0 LUCRO DESEJADO £ F: 

310 INPUT F 
320 PRINT F 

330 LET Q = INT('(F + D)/(P - C)) + 1 
340 PRINT "A QUANTIDADE QUE DEVE SER"; 

345 PRINT "OFABRICADA E VENDIDA fiO"; Q 
400 PRINT 


410 PRINT ”VOC£ QUER ENTRAR COM OUTROS PARAMETROS 0U UM 
OUTRO PRODUTO (S/N)?" 

4 20 INPUT R$ 

430 IF R$ = "S" THEN GOTO 5 
440 STOP 

Comentavio: 

Teste o seu programa para os seguintes da 
dos P = u.m.» C = 237 u.m,,. D=1 280000 u.m. e 

q = 5000 unidades. 

Qual e o seu lucro L? 

A seguir descubra o valor de Q se voce quer um 
lucro F igual a 6 000 000 mantidos os valores de 
P, C e D. 

Entre com outros valores e simule uma si- 
tua?ao na qual voce perde (o que alias nao e muito 
dificil, hoje em dia...). 




13. VENDA TOTAL 



desempenho de 4 vendedores ao longo de uma semana. 

fi obvio que voce ecletico(a) leitor(a) po 


de ampliar o programa para mais vendedores!!! 

No programa calcula-se e imprime-se o to¬ 


tal vendido em cada dia, o total semanal de cada 


vendedor e a venda total de todos os vendedores na 


semana. 


Al vai o programa: 


10 DIM V(4,6) 

20 FOR I = 1 TO 4 


30 FOR J = 1 TO 
40 INPUT V(I,J) 



Entrada de dados por linha 
(veja a Tabela 5) 


50 NEXT J 


60 NEXT I 

70 FOR D * 1 TO 6 

80 LET S = 0 

90 FOR N « 1 TO 4 

100 LET S = S + V(N,D) 

110 NEXT N 

120 PRINT ’’TOTAL VENDIDO NO DIAO"; DJ "OeQ"; S 
130 PRINT 


78 


140 NEXT D 

150 FOR N * 1 TO 4 

160 LET S = 0 

170 FOR D - 1 TO 6 

180 LET S = S + V(N»D) 

190 NEXT D 

200 PRINT ”6 TOTAL VENDIDO NA SEMANA PELO VENOEDORO''; 

N; "Qe S 
210 PRINT 
220 NEXT N 
230 LET S = 0 
240 FOR I - 1 TO 4 
250 FOR J = 1 TO 6 
260 LET S » S. + V(I,J) 

270 NEXT J 

280 NEXT I 

290 FOR K = X TO 32 

300 PRINT 

310 NEXT K 

320 PRINT "A VENDA TOTAL DA SEMANA E: S 

330 FOR K = 1 TO 32 

340 PRINT 

350 NEXT K 

360 STOP 

Sugestao :■ 

Aplique o programa "VENDA TOTAL" para os 
dados da labels 5. 
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Tab el a 5 


Como se poderia modificar o programa "VEN¬ 
DA TOTAL" para que saia a sigla de cada dia com tres 
letras (por exemplo SEGUNDA seria indicada por 
SEG) e o nome do vendedor com ate 8 letras? 


Resposta: 

Basta "enxertar" o programa "VENDA TOTAL" 
com as instruqoes 


1 DIM D$(6,3) 

3’FOR I = 1 TO 6 

4 INPUT D$ (I) 

5 NEXT I 

15 DIM N$ (4,8 ) 

16 FOR N = 1 TO 4 

17 INPUT N$CN) 

18 NEXT N 


E evidente que agora na linha 120 no lu- 
gar da variavel numerica simples D vai aparecer a 
variavel coletiva alfabetica D$(.D) e na linha 200 
no lugar da variavel numerica simples N aparecera 
a variavel coletiva STRING N$(N), 




14. COMPRA DE CARPETE 



Escreva um program's que utilize uma subro 


tina para calcular o preijo do carpete colocado na 
sua casa. 

Suponha que existem quatro tipos de car¬ 
pete e cada um tem um desconto que e uma funqao da 
quantidade de carpete comprada. 

As condiqoes de pagamento 1, 2 e 3 da Ta- 
bela 6 sao por metro quadrado para os primeiros 

2 2 — 

65 m , para o que exceder os 65 m e nao ultrapas- 

2 ... 
sar 120 m e para qualquer quantidade pedida acima 

2 

de 120 m , respectivamente. 

E assim uma cobran^a escalonada ou seja 
^ 2 

se voce quiser comprar 130 m do carpete tipo C en 
tao, em vista dos dados da Tabela 6, teria que gas 
tar 

G = 2350 x 65 + 2000 x55 + (130 - 120) x 1840 = 281150 



If Faixa 2f Faixa 3? Faixa 
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Faga uma aplicagao para uma casa na qual 
voce tem cinco quartos com dimensoes retangulares 
com os seguintes valores em metros: 


Quarto 

1 

2 

3 

4 

5 

Compri- 
mento (C) 

5.11 

3.08 

5.13 

2.65 

4.27 

Largura 

(L) 

4.11 

2.95 

4.84 

3.54 

3.79 


TaBela 7 


Neste programa quer-se que o custo seja 
apresentado com precisao de centavos arredondados 
ou truncados conforme o caso e notar que o pedido 
de compra de carpete deve sofrer urn acrescimo de 
12 % em relagao a area real a ser acarpetada devido 
as perdas nos cdrtes. 

E tem centavos no Brasil?!? 

Espero que algum dia voltem (os centavos) 

Al vai o programa "CUSTO DO CARPETE" 


5 DIM P(4,3) 

10 PRINT "ENTRADA DOS FREgOS DO CARPETE" 
15 FOR K = 1 TO 4 
20 FOR D = 1 TO 3 
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25 INPUT P(K,D) 
30 NEXT D ~ 
35 NEXT K 


tipo de carpete 

desconto em fungao da 
metragem adquirida 




40 PRINT 
42 CLS 

45 PRINT "QUANTOS QUARTOS SAO?" 

50 INPUT N 
55 PRINT "N=";N 
60 PRINT 

65 PRINT "ENTRE PARA CADA QUARTO COM 0 SEU COMPRIMENTO 

(C)O"; 

70 PRINT "E COM A SUA LARGURA (L)^ 

80 PRINT 
90 LET A = 0 


95 FOR I = 1 TO N 
100 INPUT C 
110 INPUT L 


Aqui e feito o calculo 
da area total ("teori- 
ca") 


120 LET A = A + L * C 

130 NEXT I * 

140 PRINT "SREA="; A; "DM2" 

150 PRINT 

155 LET S = INT(112 * A + .5)/100 

160 PRINT "DEVE-SE COMPRARD"; S; "Dm2 DE CARPETE" 
165 PRINT 

170 FOR L = 1 TO 32 
175 PRINT 
180 NEXT L 

185 PRINT "TIPO DE CARPETE", "CUSTO DO PEDIDO" 

190 LET K * 1 -•— Carpete do tipo A 

200 GOSUB 1000 
205 PRINT 

210 PRINT TAB 7; "A", G 
220 LET K = 2 -—- 


Carpete do tipo B 
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230 GOSUB 1000 
235 PRINT 

240 PRINT TAB 7; "B", G 

250 LET K ■ 3 -—■ Carpete do tipo C 

260 GOSUB 1000 
265 PRINT 

270 PRINT TAB 7; "C", G 
280 LET K = 4 
290 GOSUB 1000 
295 PRINT 

300 PRINT TAB 7; "D", G 
310 IF INKEY$ = "" THEN GOTO 310 
320 IF INKEY$ = "S" THEN GOTO 42 
330 STOP 

1000 IF S > = 120 THEN GOTO 1500 
1010 IF S > = 65 THEN GOTO 1400 
1020 LET G = P(K,1) * S 
1030 GOTO 1700 

1400 LET G = 65 * P(K,1) + (S - 65) * P(K,2) 

1410 GOTO 1700 

1500 LET G = 65 * P(K,1) + 55 * P(K,2) + (S - 120)*P(K,3) 
1700 LET G = INT (100 * G + .5)/100 
1710 RETURN 

Comentario: 

0 programa e tao lindo que fala por si so. 



A Estatistica e muito ixnportante na ava- 
liagao do desempenho de uraa turma. 

Voce sabia disso? 

Professores frequentemente precisam da me 
dia aritmetica (y) e do desvio padrao (a) para po- 
der fazer uma analise coraparativa sobre o compor- 
tamento das diferentes turmas de alunos para as 
quais lecionam e as quais foi aplicada a mesma pro 
v a. 

Ai vai o programa que permite saber se as 
notas dos alunos (dadas na faixa de 0 a 100 pontos) 
estao na faixa u ±a ou na faixa y ± 2 a. 

Ai vai o programa: 

10 PRINT "pfiDIA E DESVIO PADRAO ' 1 

20 FOR J = 1 TO 32 

25 PRINT 

30 NEXT J 

32 PAUSE 300 

35 CLS 

40 PRINT "VAI SE OBTER PARA N ALUNOS A 0"; 
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42 PRINT "NOTA MfiDIA E 0 DESVIO PADRAO" 

45 PRINT 
50 PRINT 

52 PRINT "ENTRE COM 0 NtfMERO DE ALUNOSO"; 

55 INPUT N 
58 PRINT "N= N 
60 DIM N$ (N,7) 

70 DIM N(N) 

80 FOR I = 1 TO N 
90 INPUT N$(I) 

100 INPUT N (.1) 

110 NEXT I 
120 GOSUB 1000 

130 PRINT "VOCt QUER QUE EU (TK-85) IMPRIMA OS NOMES E AS 
NOTAS (S/N)?" 

140 INPUT R$ 

150 IF R$ = "S" THEN GOTO 200 

160 GOTO 2000 

200 PRINT ’’NOME", "NOTA" 

205 PRINT 

210 FOR I = 1 TO N 

220 PRINT N$(I), N(I) 

230 NEXT I 
235 PAUSE 333 
240 GOTO 2000 
1000 LET T = 0 
1005 LET S2 = 0 
1010 FOR J = 1 TO N 
1020 LET T = T + N(j) 

1030 LET S = N(J) ** 2 
1040 LET S2 = S2 + S 
1050 NEXT J 
1060 LET M = T/N 


0 tamanho maximo de 
cada nome e de 7 ca 
racteres 
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t 070 LET M = INT (M * 100 + .5) / 100 
1075 PRINT 

1080 PRINT "A MfiDIA DA CLASSE E :Q"; M 

1090 LET D = SQR (S2/N - M**2)-— 

1100VLET D = INT(D*100 + .5)./l00 
1110 PRINT 

1120 PRINT "O DESVIO PADRAO E:0"; D 
1130 PRINT 
1140 LET D1 = M + D 
1150 LET D2 = M + 2*D 
1160 LET El = M - D 
1170 LET E2 = M - 2*D 
1175 IF D1 >100 THEN LET D1 = 100 
1180 IF D2 >100 THEN LET D2 - 100 
1185 IF El <0 THEN LET El = 0 
1190 IF E2 < 0 THEN LET E2 - 0 
1200 PRINT "A FAIXA QUE DEVE TER 
PORCENTO DOS ALUNOS 
1210 PRINT 
1220 PRINT "DEO"; El; "QATfiO"; D1 
1230 PRINT 

1240 PRINT "A FAIXA QUE DEVE TER QUASE NOVENTA E SEIS 
PORCENTO DOS ALUNOS E: " 

1250 PRINT 

1260 PRINT "DEO"; E2; "QatEO"; D2 
1270 RETURN 

2000 PRINT "VAI ENTRAR COM OUTRO CONJUNTO DE DADOS (S/N)?" 
2010 INPUT R$ 

2020 IF R$ = M S" THEN GOTO 35 
2030 STOP 


Isto impede que se 
__ tenham not as nega- 
tivas ou maiores 
que 100 pontos 


ASE SESSENTA E NOVE 


Esta e uma for¬ 
mula aproximada. 
Veja porque ,no li- 
vro n Probabilidades 
e Estatxstica para 
Engenharia"“vol. 1 
de Victor Mirshawka 
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Teste o programa "MfiDIA E DESVXO PADRAO" 
para os seguintes dados (Tabela 8). 


Nome 

No ta 

Victor 

95 

Sergio 

85 

Sacha 

80 

- 

Nilza 

75 

Teteu 

45 

Nippa 

95 

Faf a 

49 

Tito 

70 

Pot i 

63 

Thais 

98 

Du 1 ce 

74 

Vicky 

83 

Altemar 

59 


Tabe1 a 8 

0.1. - muito importante saber colocar em ordem 
alfabetica uma lista de clientes, amigos, fornece- 
dores ou porque nao alunos. 

Na FEFAAP por exemplo, nao existe nenhuma tur 
ma com mais de 1X0 alunos e com o programa "Ordena 
dor alfabetico" do Renato Degiovani que saiu no 
N? 17 da Micro Siatemas (fevereiro/1983) voce con- 
segue o objetivo de ordenar palavras de ate 20 le- 
tr as . 

Alias o programa de Renato Degiovani permite 
ordenar ate 300 nomes de nao mais que 20 caracte- 



letras todas distintas de uma palavra de apenas 4 
letras de todas as formas posslveis. 

Obteremos dessa forma todos os anagramas 
posslveis. 

Como teste do programa aplique o mesroo nu 
ma das mais lindas palavras que e 

AMOR 

E podia ter teste melhor? 

Al vai o particular e interessante progra 

ma: 

5 CLS 

7 DIM L$C4) 

10 REM ANAGRAMA PARA QUATR0 LETRAS 
20 PRINT "FORNEQA QUATRO LETRAS QUAISQUER;" 

30 PRINT 
40 INPUT L$tl) 

42 INPUT L$(2) 

44 INPUT L$(3) 

46 INPUT L$(4) 


res 




90 
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50 PRINT 

60 FOR I * 1 TO 4 

70 FOR J = 1 TO 4 

80 IF J = I THEN GOTO 150 

90 FOR K = 1 TO 4 

100 IF K = I THEN GOTO 140 

110 IF K - J THEN GOTO 140 

120 LET L = 10 - (I + J + K) 

130 PRINT L$(I); L$(J); L$(K); L$(L);"C] n ; 

140 NEXT K 

150 NEXT J 

160 NEXT I 

170 STOP 


b) Sera que voce pode obter o nutnero to¬ 
tal de anagramas ou seja permutagoes distintas que 
se pode ter com as letras de uma palavra de N le- 
tras todas diferentes entre si? 


Reaposta: 


Se voce nao pode, sera entao ajudado nis- 


to I ; . 


Ai vai o programa que permite obter a res 


posta: 


10 INPUT P$ 

20 SCROLL 

25 LET A = 1 

30 FOR J * 2 TO LEN P$ 

35 LET A = A * J 
40 NEXT J 

45 PRINT 'AT 19,0; "EXISTEM(D";A; "OPERMUTAgOES DIFERENTES"; 


50 PRINT AT 20,0; "QCOM AS 
60 FOR S = 1 TO 5 
70 SCROLL 

80 NEXT S ---— 

90 GOTO 45 


LETRAS DA PALAVRAO"; P$ 

Linda forma de saltar linhas 
e abrir um espago entre as 
mensagens consecutivas. Voce 
, nao acha? 


c) Vamos agora apresentar um programa no 
qual e dada uma palavra (P$) e a seguir sorteiam- 
se algumas letras da mesma constituindo-se uma no¬ 
va palavra N$ que e impressa em duas colunas dis¬ 
tintas. 

Alem disso imprime-se a palavra original 

Voce deve observar a irapressao e no momen 
to que P$ coincidir com N$ o programa para automa- 
t icamente. 

NSo convem entrar com palavra de mais de 
8 letras pois ira demorar muito para ocorrer acoin 
cidencia e a saida na tela fica prejudicada... 

10 PRINT "ENTRE COM UMA PALAVRA" 

20 INPUT P$ 

30 DIM N$(LEN P$) 

40 FOR J = 1 TO LEN P$ 

50 LET A = INT (RND * LEN P$ + 1) 

60 IF N$ (A) < > THEN GOTO 50 
70 LET N$(A) = P$(J) 

80 NEXT J 
90 SCROLL 

100 PRINT AT 19,0; N$; TAB 11; P$; TAB 23; N$ 

110 IF N$ = P$ THEN GOTO 200 
120 GOTO 30 
200 STOP 
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Comentario: 

Sera que voce consegue introduzir um con- 
tador para saber quantos sorteios foram feitos ate 
ocorrer a desejada coincidencia entre N$ e P$? 

Eesposta: 

Essa antes de mais nada e uma boa suges- 
tao para se criar um jo go a ser apresentado na te- 
levisao e quanto mais "linhas aparecerem maior se 
ra o premio atribuido ao par ticipante. 

Para essa contagem introduza as instru- 

^oe s 

5 LET L = 0 
85 LET L = L + 1 
200 PRINT AT 21,10; "L = L; 

210 STOP 


□ linhas 



tar o angulo e dado em radianos e e convertido para 
graus, minutos e segundos. 

Alias este programa e muito util para o 
programa que vem a seguir e que se chama "INCOGNI¬ 
TAS DE UM TRIANGULO". 

5 CLS 

10 PRINT "CONVERSAO ANGULAR: RADIANOS PARA GRAUS" 

15 FOR K = 1 TO 4 
20 PRINT "RAD-GRA*"; 

25 NEXT K 
28 PRINT 

30 PRINT "ENTRE COM 0 SNGULO EM RADIANOS" 

40 INPUT R 

42 PRINT "CONVERSAO DO ANGULO EM RADIANOS PARA SEGUNDOS" 

45 LET A = 648000 * R/PI 
50 PRINT "A= A 

60 PRINT "CSLCULO DO NtJMERO TOTAL DE GRAUS" 

70 LET T = INT(A/3600) 

80 PRINT "T= "; T 

90 PRINT "CSLCULO DO N0MERO DE VOLTAS COMPLETAS DESCRITO" 
100 LET V = INT‘(T/360) 
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110 PRINT "V“"; V 

120 PRINT "CALCULO DO ANGULO EM GRAUS DENTRO DF. 360 GRAUS" 
125 PRINT 

127 LET G = T - 360 * V 
130 PRINT "GRAUS=0"; G 
140 PRINT 

145 PRINT "CALCULO DOS MINUTOS" 

150 LET M = INT((A - T * 3600) / 60) 

155 PRINT "MINUTOS =0"; M 
160 PRINT 

165 PRINT "CALCULO DOS SEGUNDOS" 

170 LET S = A - 3600 *T -(INT ((A - T * 3600) / 60)) * 60 
175 LET S = INT(100 * S + .5)/100 
180 PRINT "SEGUNDOS = □"; S 
185 PRINT 

190 PRINT "BEM, Af VAI A CONVERSAO FINAL" 

200 PRINT "UM ANGULO DED"j R; "ORADIANOSQE OlGUALO A:" 
210 PRINT 

215 PRINT G; "OGRAUSO" ;M; "OMINUTOSO" >S ;" OSEGUNDOS 
220 PRINT 
230 PRINT 

235 PRINT "VOCJ? QUER OUTRA CONVERSAO (SIM/NAO)?" 

240 INPUT R$ 

250 IF R$ = "SIM" THEN GOTO 5 
260 STOP 

b) No programa que vem imediatamente a se 
guir converte-se um angulo dado em graus, minutos 
a segundos para um em radiano.s. 

5 CLS 

10 PRINT "CONVERSAO ANGULAR: GRAUS PARA RADIANOS" 

18 FOR J = 1 TO 2 
20 FOR K = 1 TO 2 


25 PRINT "GRAU-RAD*"; 

28 NEXT K 
30 NEXT J 
40 PRINT 

45 PRINT "ENTRE COM UM ANGULO EM GRAUS (G), MINUTOS(M) 
SEGUNDOS(S)" 

50 INPUT G 
60 INPUT M 
70 INPUT S 

80 LET A = G + M/60 + S/3600 
85 PRINT 

90 PRINT "CALCULO DO NtjMERO COMPLETO DE CfRCULOS" 

100 LET V = INT (A/360) 

105 PRINT 

110 PRINT "CALCULO DO ANGULO DENTRO DE 360 GRAUS" 

115 LET R = A * .01745329 - V*6.2831853 
120 PRINT "RADIANOS"; R 
125 PRINT 
130 PRINT 

135 PRINT "PORTANTOD"; G; "OGRAUSO"; M; "OmINUTOSO"; 
S; "OSEGUNDOS O"; 

140 PRINT "VALEMO"; R; "□ RADIANOS" 

142 PRINT 

145 FOR J = 1 TO 2 
150 FOR K = 1 TO 2 
155 PRINT "GRAU-RAD*"; 

160 NEXT K 
165 NEXT J 
167 PRINT 

170 PRINT "VOC£ QUER OUTRA CONVERSAO (SIM/NAO)?" 

130 INPUT R$ 

190 IF R$ = "SIM" THEN GOTO 5 
200 STOP 

0 programa esta tao explicado nos "PRINT 
que nao exige nenhum comentario adicional, nao e? 




18. INCOGNITAS DE UM TRlANGULO 



calculam-se as tres "partes" de um triangulo, des- 
de que sejam dadas as outras tres. 


Para que se possa resolver o problema sa- 
bemos da Geometria e da Trigonometria que ao menos 
um dos tres dados deve ser um lado. 

Existem dessa maneira cinco possibilida- 
des para os dados de entrada 

1) angulo, lado, angulo ALA 

2) lado, angulo, lado — LAL 

3) angulo, angulo, lado AAL 

4) lado, lado, angulo LLA 

5) lado, lado, lado —LLL 

Os dados devem sempre entrar na ordem em 
que aparecem nos "agrupamentos" indicados acima ou 
no sentido horario ou no sentido anti-horario. 

Os angulos devem entrar em radianos e as 
respostas serao tambem em radianos (rad). 

Ai vai q "programao". 
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5 CLS 

10 PRINT "PARTES DE UM TRlXNGULO" 

15 PRINT 

20 FOR J = 1 TO 4 
25 PRINT "*TRIAN**”; 

30 NEXT J 
40 DIM A(3) 

50 DIM L(3) 

60 PRINT 

65 PRINT "s£0 RESOLVIDOS OS SEGUINTES PROBLEMAS " 
70 PRINT 

75 PRINT "1-ALA, 2-LAL, 3-AAL, 4-LLA, 5-LLL" 

80 PRINT 

85 PRINT "ENTRE COM 0 TIPO (T) DE PROBLEMA QUE QUER 
RESOLVER" 

90 INPUT T 

100 IF T = 5 THEN GOTO 450 

110 IF T = 4 THEN GOTO 330 

120 IF T = 3 THEN GOTO 290 

130 IF T = 2 THEN GOTO 220 

140 IF T = 1 THEN GOTO 160 

150 IF T <1 OR T > 5 THEN GpTO 90 

160 PRINT "ENTRE COM SNGULO, LADO, &NGULO" 

170 INPUT A(l) 

173 INPUT L(3) 

175 INPUT A(2) 

180 LET A(3) = PI - A(l) - A(2) 

190 LET L(l) = L(3) * SIN A(l) / SIN A(3) 

200 LET L(2) = L(3) * SIN A(2) / SIN A(3) 

210 GOTO 500 

220 PRINT "ENTRE COM LADO, SNGULO, LADO" 

230 INPUT L(3) 

233 INPUT A(l) 

237 INPUT L(2) 
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240 LET L(l) = SQR (L(3) * L(3) + L(2) * L(2) - 2*L(3)* 
L(2)* COS A(l)> 

250 LET X = SIN A(l) 

260 LET A(2) = ASN X 
270 LET A(3) = PI - 
280 GOTO 500 
290 PRINT "ENTRE COM ANGULO, &NGULO, LADO" 

300 INPUT A(3) 

303 INPUT A(2) 

307 INPUT L(3) 

310 LET A(1) = PI - A(2) - A(3) 

320 GOTO 190 

330 PRINT "ENTRE COM LADO, LADO, SNGULO" 

340 INPUT L(l) 

343 INPUT L(2) 

347 INPUT A(l) 

350 LET Y = L(2) * SIN A(l) 

360 IF L(l) <Y THEN GOTO 580 

365 LET L(3) = SQR (L(2) * L(2) - Y*Y) 

370 LET Z = SQR (L(l) * L(l) - Y*Y) 

380 PRINT "VOCE QUER 0 SNGULO A(2) AGUDO (A) OU OBTUSO(O)?" 
390 INPUT R$ 

400 IF R$ = "A" THEN GOTO 430 

410 LET L(3) = L(3) - Z 

414 LET W « SIN A(l) / L(l) * L(2) 

416 LET A(2) = PI - ASN W 
420 GOTO 270 
430 LET L(3) = L(3) + Z 
440 GOTO 250 

450 PRINT "ENTRE COM LADO, LADO, LADO" 

460 INPUT L(l) 

463 INPUT L(2) 

467 INPUT L(3) 
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470 LET W = (L(2)*L(2) + L(3)*L(3) 

L(3) ) 

480 LET A(1) = ACS W 

\ __ 

490 GOTO 250 
500 PRINT 

505 FOR I = 1 TO 3 
510 IF A(I) <0 THEN GOTO 580 
520 PRINT "LADOO"; I; INT(L(I) * 1000 + .5)/1000 

| 530 PRINT"ANGULO OPOSTO ="; INT (A(I) * 1000 +.5)71000; 
"Oradianos" 

540 NEXT I 
545 GOTO 650 
550 FOR J = 1 TO 4 
560 PRINT "*TRIAN**"; 

570 NEXT J 

580 FOR K = L TO 32 

590 PRINT 

600 NEXT K 

610 PRINT "NAO TEM SOLUgAO" 

620 FOR K = 1 TO 32 
630 PRINT 
640 NEXT K 

650 PRINT "VOCE QUER ENTRAR COM OUTROS DADOS (SIM/NAO)?" 
660 INPUT R$ 

670 IF R$ = "SIM” THEN GOTO 5 
680 STOP 


- L(1)*L(1))/(2*L(2)* 



Essa e a forma de escre 
ver arco cosseno no 
BASIC do TK-85 


Sugestao: 


Aplique esse programa para as seguintes 
situagoes particulares. 

1) ALA - A(l) = 0.57, L(3) = 795, A(2) = 0.43 

2) LAL — L(3) = 289, A(l) = 1.62, L(2) = 601 

3) AAL — A(3) = PI/3, A(2) = Pl/4, L(3) = 350 

4) LLA — L(l) = 309, L(2) = 360, A(l) = 0.36 (com A(2)agudo) 

5) LLL — L(l) = 5, L(2) = 4, L(3) = 3. 





19. TETRAEDRO E 
OCTAEDRO 



a) Vamos fazer inicialraente um programa 


que permita obter a area da superficie e o volume 
de um tetraedro regular desde que se conheqa o com 
primento da aresta (A). 

Quer-se que estes dois numeros sejam indi 
cados com tres casas decimals e para isto deve-se 
ter no programa uma subrotina que p.ermita esse ar- 
redondamento. 

Lembre que a area da superflcie (S) e o 
volume do tetraedro (V) sao dados pelas formulas 

e 

Entre com A = 10 para obter uma soliiqao 
particu1ar. 

0,1. Sao esquega que existe o livro "TK-2000 na 
Matematica" do mesmo autor onde todos os problemas 
matematicos sao "destrinchados" no maravilhoso TK- 
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10 INPUT A 

20 LET X = SQR 3 * A ** 2 
30 GOSUB 1000 

40 PRINT "A AREA DA SUPERFlCIE £:";X 
50 LET X = SQR 2 / 12 * A ** 3 
60 GOSUB 1000 

70 PRINT "0 VOLUME DO TETRAEDRO REGULAR £ : X 

80 STOP 

1000 LET Z = ABS (X * 10 ** 3 + 0.5) 

1010 LET X = INT Z / 1000 
1020 RETURN 

Caso voce execute o prograraa para A = 10 

ob t era: 

A Area DA SUPERFlCIE E :173.205 
0 VOLUME DO TETRAEDRO REGULAR £ : 117.851 


b) Agora alem do tetraedro queremos taro- 
bem a area da superficie e o volume do octaedro re 
gular. 

As respostas devem vir com quatro casas 
decimals e as formulas para o octaedro sao: 


e 

AI vai o programa: 


„ /T 3 
v = — a 


S = 2 /T a 2 


10 INPUT A 

15 PRINT "A Area DO TETRAEDRO £ 


20 LET C = 1 
30 GOSUB 1000 
35 PRINT "0 VOLUME 
40 LET D = 12 
50 GOSUB 2000 


DO TETRAEDRO £ 


55 PRINT "A Area DO OCTAEDRO £ 

60 LET C = 2 
70 GOSUB 1000 
80 LET D = 3 

85 PRINT "0 VOLUME DO OCTAEDRO £ 
90 GOSUB 2000 
100 STOP 

1000 LET X = C * SQR 3 * A ** 2 
1010 GOSUB 3000 
1020 RETURN 

2000 LET X = SQR 2 / D * A ** 3 
2010 GOSUB 3000 
2020 RETURN 

3000 LET Z = ABS(X * 10 ** 4 + .5) 

3010 LET X = INT Z / 10000 

3020 PRINT X 

3025 PRINT 

3030 RETURN 


Comentario: 

Com o mesmo "estilo" voce pode obter os 
programas que executem os ; calculos da area late¬ 
ral e do volume de outros solidos de interesse co- 
mo por exemplo o cone, a esfera, o toro, o elipsoi 
de, etc. 






20. AREA DE UM POLfGONO 



Com o programs "AREA DE UM POLlGONO" cal- 


ciila-se, como nao poderia deixar de ser a area de 
um poligono. 

Voce ja viu ura programs com um nome que 
"caia" me 1hor" 

£ evidente, que voce dede fornecer as co- 
ordenadas (x,y) de todos os vertices (veja a Figu¬ 
re 5 ) . 

As coordenadas devem entrar todas era or- 
dem sucessiva dos vertices, isto e obedecendo a 
lei de formagao indicada na formula (1) 

Area = 


Cx l +x 2 )(yi-y 2 )+(x2+X3)(y 2 -y 3 )+ (x 3 +x 4 ) (y 3 -y 4 ) + /..+ 



Ai vai o programa: 

10 print "Area de um polTgono" 
20 FOR I = 1 TO 3 
30 PRINT "**P0LtG0N0"; 

40 PRINT 
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50 PRINT "ENTRE COM 0 N0MERO DE VERTICES" 

60 INPUT N 
70 LET M = N + 1 
80 DIM X(M) 

90 DIM Y(M) 

100 FOR I = 1 TO N 
110 INPUT X(T) 

120 INPUT Y(D 
130 NEXT I 

140 PRINT "NAO ESQUEQA QUE NA FORMULA DADA 0 (JLTIMO VfiRTICE 
SERVE COMO PRIMEIRO" 

150 LET X(N+1) « X(l) 

160 LET Y(N+l) = Y(l) 

170 LET A * 0 
180 FOR I = I TO N 

190 LET A » A + (X(I) + X(I+1)) * CTCl) ~ Y(I+1)) 

200 NEXT I 

210 PRINT "ABSCISSA”, "ORDENADA" 

220 FOR I - 1 TO S' 

225 PRINT "X( M ;I;”> ="; x(l), ,, Y( ,, ;I;”) ="; YCD 
230 NEXT I 
240 PRINT 

250 PRINT ”£rEA="; ABS(A/2) 

260 FOR I - 1 TO 16 
270 PRINT "BO"; 

280 NEXT I 

290 PRINT "VOCg QUER ENTRAR COM OUTROS DADOS CS/N)?" 

300 INPUT R$ 

310 IF R$ < > ,, S" THEN STOP 
320 GOTO 50 







linear. 

Porera nos cursos universitarios e impres- 
cindivel conhecer a interpola^ao polinomial (alge- 
brica) e tnuitas vezes ate a interpolaqao trigonpme 
trica. 

No nosso caso especifico* dados dois pon~ 
tos P 1 (x 1 ,y 1 ) e ?2^ x 2* y 2^ vamos otter o valor de y 
para um dado valor de x sendo que <x <X 2 (veja 
a Figura 7) . 



Figura 7 
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Para se obter y deve-se aplicar a formula 



5 CLS 

10 PRINT "INTERPOLAQAO LINEAR" 

20 FOR J « 1 TO 8 
25 PRINT "X?Y?"; 

30 NEXT J 
35 PRINT 

40 PRINT "ENTRE COM 0 PRIMEIRO PONTO" 

45 INPUT XI 
50 INPUT Y1 

55 PRINT "ENTRE COM 0 SEGUNDO PONTO" 

60 INPUT X2 
65 INPUT Y2 

70 PRINT "ENTRE COM 0 VALOR (X) PARA 0 QUAL QUER 0 VALOR 
INTERPOLADO" 

80 INPUT X 

90 IF XI < >X2 THEN GOTO 120 

100 PRINT "NAO BRINQUE COMIGO, ENTRE COM VALORES CORRETOS" 
110 GOTO 45 

120 LET Y = Y1 + ((X-Xl) * (Y2-Y1))/(X2-X1) 

130 LET Y = INT (Y*1000 + .5)/1000 
140 PRINT "O VALOR QUE SE QUER fi Y - Y 
150 FOR K = 1 TO 8 
160 PRINT "OBA*"; 

170 NEXT K 

180 PRINT "VOCE QUER MAIS INTERPOLAqSeS ENTRE OS MESMOS 
PONTOS (S/N)?" 

190 INPUT R$ 

200 IF R$ = "S M THEN GOTO 70 
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210 PRINT "VOCE QUER INTERPOLAR ENTRE OUTROS PONTOS 
(SIM/NAO)?" 

220 INPUT N$ 

230 IF N$ = "SIM" THEN GOTO 5 
240 STOP 

Sugestao: 

No nosso livro "Exercicios de Calculo Nu- 
merico" encontra-se uma tabela que relaciona a so- 
lubilidade da agua no oleo mineral em partes por 
milhao a temperatura y (em graus centlgrados). 


X 

30 

130 

230 

330 

43.0 

530 

y 

15 

50 

66 

76 

82 

87 


Tabela 9 

Com o auxllio do programa "INTERPOLAQAO" 
preencha a Tabela 10. 


X 

78 

110 

245 

415 

5^8 

y 

? 

1 

? 

? 



Tabela 10 







nosso 


iivro Pesquisa Operacional(vol.l) r ' 
fazemos a anal ise de varies modelos de es t.o que. 

Naquele Iivro procuramos tornar bem evi- 
dente que para entender um modelo de estoque e ne- 
cessario ter entre outras coisas o conhecimento do 
valor do capital investido, o lucro marginal sobre 
um dado produto, ter uma ideia sobre o futuro mod 
lo do fornecimento de materia prima e principalme 
te a demanda sobre os bens. 

Alem disso voce deve lembrar que qualquer 
sistema que voce use para obter informagao para 
controlar estoque custara "algo” para poder ser 
posto em pratica. 

0 meu amigo Ary da Livraria Nobel que o 

digai?I 

Embora existam tres tipos distintos de 
analise de estoques no mundo dos negocios — o da 
materia prima, o de produtos componentes e o de 
produtos acabados - todos tern algumas caracteris~ 
ticas semelhantes. 

Em todos os casos ha necessidade de reno- 
vagao, que nem sempre e imediata. 


in> 
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0 rest abelecimento de estoques atraves de 
pedidos custa dinheiro e alem disto quando se in- 
corre em falta de estoque aparecem grandes custos 

de penalizaqao ou seja de falta. 

No programa "ESTOQUE' 1 apresentamos urn mo- 
delo muito simples e aplicado para o caso de com- 

pra de materia prima. 

Esse programa entretanto capacita voce pa 

ra construir e entender modelos de estoque bemmais 

complicados. 

Suponhamos que o estoque inicial e de E 
= 84 unidades, que a demanda no decurso de uma se- 
mana e de D = 8 unidades, que o periodo de renova 
S ao e P = 7 semanas quando se encomendam sempre 
R = 36 unidades. 

Com o programa "ESTOQUE" veremos o que 
ocorre a medida que se vai consumindo o estoque 

pois o mesmo nos mostra se e ou nao e necessario 
renovar o estoque, se temos falta ou nao d-e esto¬ 
que e qual e a nossa situaqao em cada seraana. 

0 programa da essa previsao para 48 sema¬ 
nas ou seja quase para o ano todo. 

Bern al vai o programa: 

10 LET E = 84 
20 LET 0=8 
30 LET P = 7 
40 LET R = 36 
50 FOR T = 1 TO 48 
60 LET E = E - D 

70 IF INT(T/P) = T/P THEN GOTO 90 
80 GOTO 100 
90 LET E = E + R 


100 GOSUB 400 
110 NEXT T 
120 STOP 

400 IF E <-16 THEN GOTO 420 
410 GOTO 440 

420 PRINT " <-16"; "□ 0 " 

430 GOTO 660 

440 IF E > 64 THEN GOTO 480 
450 GOTO 480 

460 PRINT TAB 5; "0 " > 64" 

470 GOTO 660 

480 IF E <0 THEN GOTO 493 
490 GOTO 530 

493 LET I ** INT (ABS(E/4)) 

495 FOR K = I TO 1 STEP -1 
500 PRINT TAB (5 - K); 

505 NEXT K 

510 PRINT TAB 5; M @" 

520 GOTO 660 

530 PRINT TAB 5; " 0 "; 

540 LET I = INT (E/4) 

545 IF I = 0 THEN GOTO 660 

550 FOR K = 1 TO I 

560 PRINT 

570 NEXT K 

660 RETURN 




Neste programa o seu TK-85 ira imprimir um 
numero escolhido aleatoriamente com nove algaris- 
mos todos distintos entre si Cexcluido o zero) e 
voce deve se comunicar com o TK-85 dando-lhe ins- 
trugoes para inverter a ordem digamos dos cinco pri 
meiros algarismos que estao a esquerda para se ob- 
ter no menor "tempo" possivel ou melhor com o me- 
nor numero de trocas o numero todo escrito na for¬ 
ma 

123456789 


Se por exemplo o seu TK—85 imprimir ini— 

cial'mente 


385197642 


e caso voce entre com 5, ele ira inverter a ordem 
dos cinco primeiros algarismos da esquerda para a 
direita e voce tera o numero 


915837642 


Agora entrando com o 9 obter-se-a 
246738519 

e dessa forma o 9 ja esta na posigao final. 

Agora deve-se fazer a mesma coisa com o 8 
e assim por diante. 
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160 LET T = N 
170 LET U = 1 
180 LET B(U) = A(T) 

190 LET U = U+l 
200 LET T « T-l 
210 IF T < >0 THEN GOTO 180 
220 FOR L = 1 TO N 
230 LET A(L) = B(L) 

240 NEXT L 
250 LET M = M + 1 
260 PRINT 

270 PRINT "VOC£ JX FEZ O"; M; " OlNVERSOES" 

280 PAUSE 299 
290 CLS 
295 GOTO 105 

300 PRINT "DEMOROU, MAS VOCf CONSEGUIU APCS M; 

"□iNVERSOES" 

310 STOP 

70 NEXT J 
80 NEXT K 
90 LET M = 0 

100 PRINT "QUANTOS ALGARISMOS VOCE QUER INVERTER?" 

105 PRINT "TECLE UM NflMERO INTEIRO DE 1 ATE 9" 

108 PRINT "Al VAI 0 NtJMERO ATUAL" 

110 FOR J = 1 TO 9 
115 PRINT A(J); 

120 NEXT J 
122 PRINT 

125 PRINT "0 SEU N0MERO JX fi 123456789 (S/N)?" 

130 INPUT R$ 

135 IF R$ = "S" THEN GOTO 300 
140 INPUT N 

150 IF N <1 OR N > 9 THEN GOTO 140 


No programa saira impresso o numero de ten 
tatlvas £eitas por voce ate chegar a posigao fi¬ 
nal . 

£, como voce esta vendo caro(a) leitor(a) 
um programa de distragao. 

Mas no meio detantos calculos bem que 
voce merece um pouco de lazer se bem que e um n la- 
zer numerico". 


10 PRINT "***REVERS0***" 

15 DIM A(10) 

20 DIM B(10) 

25 PRINT 

30 FOR K = 1 TO 9 

35 LET A(K) = INT(RND*9) + 1 

40 IF K * 1 THEN GOTO 80 

50 FOR J = 1 TO K-l 

60 IF A(K) = A(J) THEN GOTO 35 


E necessario isto? 


)fr 




0 pendulo e urn corpo pesado, movel etn tor 


no de urn eixo f ixo horizontal, eixo de suspensao, 
que nao passa pelo centro de gravidade do corpo pe 
sado. 

Este e o pendulo dos antigos relogios de 
parede que valeu o nome de ''pendulo' 1 a esses ins- 
trumentos. 

0 prumo,ou o travessao de uma balanqa sao 
tambem pendulos. 

Um pendulo simples seria um ponto mate¬ 
rial a oscilar, suspenso a um ponto fixo e o pendu 
lo ideal seria aquele que oscila no vacuo e o ponto 
material e ligado ao centro de suspensao por um 
fio de peso despre'zlvel e inext ensivel. 

Na pratica, realiza-se aproximadamente um 
pendulo simples suspendendo-se uma esfera, pequena 
mas muito densa em relaqao ao peso do fio. 

Qualquer outro tipo de pendulo chama-se 
de composto como e o caso da balanqa. 

A primeira aplicaqao do pendulo foi' 
construqao de relogios. 


na 
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Foi Huyghens o primeiro a empregar o pen¬ 
dulo simples para regular o movimento dos relo- 
gios . 

Uma segunda aplicaqao do pendulo foi o 
calculo da aceleragao da gravidade. 

Foucault em 1851 realizou uma experien- 
cia no Pantheon de Paris na qual se confirmava a 
rotajao da Terra de oeste para o leste. 

No convite que formulava aos membros da 
Academia de Ciencia para assistirem a experiencia 
Foucault escrevia 

"Estais convidados a ver a Terra girar 

Eu os convido a ver um pendulo balangar 
na tela do seu video ou do aparelho de T.V. conec- 
tado ao TK-85. 

Execute para'isso o seguinte programinha: 

5 REM PENDULO 
10 LET K = 10 
15 FOR J * 0 TO 3 STEP ,1 

20 FOR I = PI + .5 + J TO 2*PT — .5 - J STEP .2 
30 LET L = SIN I * K - 10 
40 LET C ■ COS I * K -15 
50 CLS 

60 PRINT AT 10, 14; "+" 

70 PRINT AT 21, 5; "---" 

80 PRINT AT L, C; "0" 

90 NEXT I 

100 FOR V = 2*PI - .5 - J TO PI + ,5 + J STEP -.2 
110 LET L = SIN V * K - 10 
120 LET C = COS V * K - 15 
125 CLS 
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130 PRINT AT 10, 14; "+ M 

140 PRINT AT 21, 5; "---" 

150 PRINT AT L,C;"0" 

160 NEXT V 
170 NEXT J 
180 STOP 

Comentario: 

Pode-se notar que o aumento progressive 
da variavel J faz com que ocorra o amortecimento 
progressive das oscilaqoes, de forma que depois 
de um certo tempo o pendulo simples para. 




Permita-me caro(a) leitor(a) expressar o 


meu entusiasmo pela ROM do seu TK-85 e isto se com 
provara no lindo programa "GR5FICOS". 

Com este programa pode-se manipular o gra 
fico de uma ou de duas fungoes. 

Com este programa manipulando convenien- 

temente o mesmo voce podera ver os dois ramos da 

- 2 _ 
parabola y = x ou a reta y = -x-2 que nao esta 

no primeiro quadrante e alem disso ter varios pon- 

tos locados. 

0 programa "GRAFICOS" permite: 

. desenhar uma primeira fungao 
. desenhar uma segunda fungao 

. desenhar as duas fungoes ao mesmo tempo e esto- 
dar inclusive as intersecgoes 

♦ deslocar o eixo horizontal (Ox) para baixo ou pa 
ra cima 

. deslocar o eixo vertical (Oy) para a esquerda ou 
para a direita 

. trocar a escala do eixo Ox (abscissas) para urn 
fator 2 ou para um fator 1/2 

. trocar a escala do eixo Oy (ordenadas) para um 
fator 2 ou para um fator 1/2 

. nao fugir dos limites da "pagina" ou seja da te¬ 
la do video 
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. nao atender a comando errado 

. visualizar era qualquer momento os eixos e os fa- 
tores de escala para Ox e Oy 


Voce estimado(a) leitor(a) deve no caso 
geral enviar a sua fungao y ■ f(x) escrita da se 
guinte forma: -x; 

y = D * (fC(X-A) / H)) + B 

Assim por exeraplo se tiver a fungao 

y = 4x - 5 no BASIC do seu TK-85 ela sera 

s>c_ 

Y = D * (4 * (X -A) / H - 5) + B 

Caso voce tenha a fungao y = x.senx ela 
em BASIC do seu TK-85 torna-se: 


Y - D * (SINC(X-A)/H) * (X—A)/H) + B 


Caso voce tenha uma fungao potencia y “x 
o seu TK-85 nao aceitara valores com x <0 e ne 
se caso para garantia se tiver por exemplo y a x 

3 

escreva D*(ABS(X-A)/H)**2 + B e caso tenha y*x 
escreva D*(SGN(X-A) * (ABS(X-A)/H>**3) + B. 

Ja para a parabola completa do 29 grau 

y * x^ - 4x — 7 

deve-se escrever 

Y = D*((ABS(X-A)/H) ** 2 - 4*(X-A)/H-7)+B 


Fica a criterio do leitor o uso dessas 
fungoes e de outras mais simples como y * 7, x *4 
ou ainda mais complexes que saiam da "cuquinha" de 
cada um(a) e elas devem entrar nap linhas 720 e820 
sendo o REM substituido pelo LET. 

Nao esquega entao que o nosso programa e 
geral e voce pode ser criativo ao maximo. 


M|CM 
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Alguma coisa mais vai atormenta-fco(la) po 
rem tente por conta propria depois de embutido to- 
do o programa "mexer" urn pouco nos valores de A,B 
D e H. 

Eles nao precisam ter sempre os valores 
indicados no programa!!! Precisam? 

Uma ultima "explieagaozinha" 

Se voce teclar: 

"1" obtem apenas a fungao Y1; 

"2" obtem apenas a fungao Y2; 

M 3 n obtem as fungoes Y1 e Y2 ao mesmo tempo; 

"X*" multiplica por 2 a escala Ox; 

"X:" divide por 2 a escala Ox; 
h Y* m multiplica por 2 a escala Oy; 

"Y:" divide por 2 a escala Ox. 

Bern o resto fica por sua conta "destrin- 

char" . 

Al vai o "super-programinha": 

10 LET A = 0 
20 LET B = 0 
30 LET D = 1 
40 LET H ® 1 
50 CLS 

60 PRINT "QUAL E A FUNgAO QUE VOCE QUER? <1> <2> <3>" 

70 INPUT G$ 

80 IF G$ = ”1” THEN GOTO 125 
90 IF G$ = ”2" THEN GOTO 165 
100 IF G$ = "3" THEN GOTO 205 

110 IF CODE (G$) <29 OR CODE (G$) >31 THEN GOTO 70-1 

com essa linha corrige-se even 
tuais erros de entrada 
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125 GOSUB 300 
130 GOSUB 700 
140 GOSUB 400 
150 GOTO 125 
165 GOSUB 300 
170 GOSUB 800 
180 GOSUB 400 
190 GOTO 165 
205 GOSUB 300 
210 GOSUB 700 
220 GOSUB 800 
230 GOSUB 400 
240 GOTO 205 

300 REM DESENHO DOS EIXOS 
310 CLS 

320 PRINT AT 0,16; "X=X*"; H;’OY=Y*";D 

330 FOR I = 0 TO 63 

340 IF I > 41 THEN GOTO 360 

350 PLOT A, I 

360 PLOT I, B 

370 NEXT I 

380 RETURN 

400 REM AQUI VAO OS COMANDOS 
410 INPUT A$ 

420 IF A$ = *'□" THEN GOTO 410 
430 IF A$ = "X*” THEN LET H = H*2 

440 IF A$ = "X;" THEN LET H = H/2 

450 IF A$ = "Y*" THEN LET D = D*2 

460 IF A$ = "Y:" THEN LET D = D/2 

470 IF A$ = "F” THEN STOP 
480 IF A$ = "C" THEN GOTO 50 
490 LET L * LEN A$ 

500 LET A$ = A$ Cl TO 1) 


510 IF A$ = "D" THEN LET A = A + 4*L 

520 IF A$ = "E" THEN LET A = A - 4*L 

530 IF A$ = "A" THEN LET B = B + 4*L 

540 IF A$ = "B" THEN LET B = B - 4*L 

550 IF A <0 OR B <0 OR A > 63 OR B > 41 THEN GOTO 570 
560 RETURN 
570 LET A - 0 

580 LET B = 0 

590 GOTO 410 

700 REM GRAFICO DA FUNQ&O FI 
710 FOR X = 0 TO 63 

720 REM Y1 = D*(F ((X-A)/H)) + B- 

730 IF Y1 < 0 OR Y1 > 41 THEN GOtO<750 
740 PLOT X,Y1 

750 NEXT X Entre aqui com as 

w suas funcoes 

760 RETURN 

800 REM GRAFICO DA FUNgAO F2 
810 FOR X = 0 TO 63 
820 REM Y2 = D*(F ((X-A)/H) +■ B 
830 IF Y2 <0 OR Y2 >41 THEN GOTO 850 
840 PLOT X,Y2 
850 NEXT X 
860 RETURN 




No Micro Mundo de novembro de 1983 (N9 9)na 
secgao Fontes tem-se um programa simples para re- 
presentar graficamente as fungoes e pronto para 
ser usado no seu TK-85. 

0 autor do programa e David Anderson e ele 
novamente destaca o perigo de se repi;esentar uma 
funcao como 

4 3 

y = x + x + x 
como LET Y = X**4 + X**3 + X 
Voce deve reescreve^la como 

LET Y = X*X*X*X + X*X*X + X 
para evitar uraa base negativa na exponenciagao, 






Realmente a grande dificuldade de um pro¬ 
fessor de Ciencias e a parte pratica. 

Como tal, a Flsica nao foge desse proble- 


ma. 


Na maior parte das Escolas os laborato¬ 
ries sao deficientes e existe uma grande dificul— 
dade para realizar experiencias. 

Hoje devido ao pequeno custo dos micro- 
computadores e possivel simular um experimento no 
mesmo e a um custo bem pequeno. 

0 uso do micro tornou-se tambem fundamen¬ 
tal para o controle das experiencias, permitindo a 
alteragao dos parametros numericos de uma forma ex 
tremamente rapida. 

Alias recentemente na 1? Semana de Compu- 
tagdo promovida pelas Faeuldades Objetivo o nosso 
amigo prof. Gustavo Nars deu uma linda exibiqao 
desta simulagao em problemas de Qulmica (Lei de 
Boyle-Mariotte) de Fisica (choque central e nao 
central) etc. 

Alias o choque central apesar de ser uma 
experiencia classica, e de dificil realizaqao 
Laboratorio, 


no 
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No programs "REBATENDO" fazemos a analise 
do amortecimento de uma esfera que e langada con¬ 
tra o solo ou uma superficie horizontal. 

Em funqao da elasticidade da esfera e do 
piano podem ocorrer saltos de mesma altura ou de 
alturas cada vez menores. 

0 parametro que caracteriza a elasticida¬ 
de de urn salto chama-se ooeficiente de restitui- 
gao e o seu valor R pode variar desde 0 (choque 
anelas tico» no qual toda a energia cinetica e dis- 
sipada na deforma 9 ao) ate no maximo 1 (colisao per 
feitamente elastica). 

Alias um programa como este ja foi langa- 
do pelo prof. Pierluigi Piazzi no numero de setem- 
bro (1982) da Micro Sistemas. 

Ho j e o prof. Pierluigi Piazzi da uma con- 
tribuiqao muito grande aos "TK—mamacos dirigindo 
a melhor e unica mostra brasileira exclusiva para 
os usuarios do TK-85 ou seja a Microhobby. 

0 coeficiente de restituiqao e dado pela 

express ao 

fi evidente que evitaremos no programa va- 
lores de R>1 visto que isto fisicamente e impos- 
s ivel. 



Al vai o ’'programinha": 
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10 PRINT "REBATENDO' 1 
20 PRINT "R=?" 

30 FOR J = 0 TO 31 
40 PRINT AT 21,J;"0" ; 

50 NEXT J 
60 INPUT R 
70 PRINT AT 1,4; R 
80 LET V0 = 82 
90 LET K = 0 
100 LET T = 9 
110 GOTO 120 
115 LET T = 0 

120 LET X = K 

125 IF X > 63 THEN STOP 
130 LET y = (20 + V0 * T - 4,9 * T ** 2)/10 

140 IF Y< = 1.5 THEN LET V0 = V0 * R 

150 IF Y < = 1.5 THEN GOTO 115 
160 PLOT X,Y 
170 LET T = T + 1 
180 LET K = K+l 
190 GOTO 120 



0.1.1 - Do meu antigo e o mais brilhante professor de Flsica 


que tive eng. Tore Nils Olof Folmer-Johnson aprendi que as 


equaqoes do movimento ballstico sao: 
Projegao horizontal 




Figura 8 





136 


Projegao vertical 


a = -g 

y & 

v = v - gt 

y oy 

g . 2 

y = y + v t - -w- . t 
J J o oy 2 


Em qualquer instante a velocidade v do pro 
jetil e a soma das componentes horizontal (v ) e 
vertical (v^) e tem-se que o modulo e igual a 

2 2 2 2 
v = v x + v y = v q - 2g y 


visto que 


V = V cos 0 
ox o o 


v = v sen 0 
oy o o 


(angulo de langamento) 


No caso particular em que a origem do re- 
ferencial (veja a Figura S )coincida com o ponto ou 
seja a posigao inicial do projetil (0 = P o ) a equa- 
gao da trajetoria se simplifica consideravelraente 
tornando-se: 


y = x tg 0 Q - 2 - -2- X 

2v cos- 0 
o o 

Outras grandezas caracterIsticas do movi- 
mento ballstico sao: 


A flecha da trajetoria e: 


2 2 q 
v sen 9 
o o 


0 alcance e; 


v sen 20 
o o 
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0.1. 2-0 coeficiente de vestituigao da o grau de 
aproximagao da elasticidade perfeita de dois cor- 
pos que colidem e e definido como sendo a relagao 
entre a velocidade relativa depois da colisao e a 
velocidade relativa antes da colisao. 

Quando se deixa cair uma bola sobre uma 
chapa fixa que a rebate, a bola de fato chocou-se 
com a Terra. 

A massa da Terra e tao grande que a sua 
velocidade fica na pratica inalterada e pode-se a- 
dotar que o coeficiente de restituigao e 



A velocidade relativa antes da colisao e 
simplesmente a velocidade adquirida em queda livre, 
de uma altura h^(ou y^) valendo /2gh^. 

Se depois da colisao, a bola sobe a uma 
altura de (ou y a velocidade relativa depois 
da colisao e - v2 gh^" (cons iderando-se como posi 
tivo o sentido para baixo). 

Portanto o coeficiente de restituigao e: 



e e bem simples obte-lo, por meio da medida 


das 
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duas alturas. 0 valor obtido representa uma pro- 
pnedade conjunta da bola e da superficie. 

Eu sei, eu sei, eu sei... 

Emocionei-me com a Fisica e o livro e de 
aplica^oes no TK—85 atraves do uso da linguagem 
BASIC. 

Porem essas nojoes serao uteis tambem no 
programa seguinte que se chama "PROJfiTIL" (N? 27). 

Alem do que e bom que todos saibam que po 
demos e devemos usar muito a linguagem BASIC na 
Matematica, na Fisica e na Quimica. 

E ai vai urn comercial.,. 

0.I. 3 - Aguarde para bem breve o TK-2000 na Mate¬ 
matica, na Fisica e nas Ciencias em geral. 

Sim serS o proximo livro. 

Se voce vive a metade do ano de 1984 en- 
tao ele ja existe ou seja o TK-2000 e os livros 
correspondentes. 

0,1. 4 - Na revista Microhobby, a unica revista es 
pecifica para os usuarios do TK no numero 1 encon- 
tra-se o programa."Desenho” de Lups Fernando B. P. 
Mello Barreto e com ele voce pode tambem fazer de— 
senhos incrlveis. 

0.1. 5 - Na Microhobby N9 2 (junho de 1983) o esti 
mado(a) leitor (leitora) encontra como programa do 
mes urn que permite a obten<jao de uma serie de c^ir- 
vas isotermicas de um gas ou seja desenha o dia¬ 
grams de Clapeyron. 



19 CASO: 

0 seu -Crmaozinho aagula (que promete ser 
um verdadeiro monstro) ten um canhao de brinque- 
do, de angulo variavel e que atira bolas de gude 
com velocidade 2 m/s. 
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Ele armou o canhao em frente a sua mesa 
que tem um vidro em cima. 

Conseguira o seu. super-irmao e heroi que- 
brar o seu vidro? 

29 CASO: 

Voce quando era crianga nunca leVou uma 
surra (entre tantas outras) por ter langado uma bo 
la com trajetoria inconveniente e quebrou o vidro 
da janela da sua vizinha? 



Figura 10 

29 CASO: 

Voc£ ja nao viu os bombeiros colocarem as 
mangueiras na posigao correta para atingirem com 
precisao "milimetrica" a janela onde esta o fogo? 



e 


vamos 
o seu 


Bom chega de exemplos e de 
a uma aula completa de Fisica 
programa "PROJfiTIL" 


recordagoes 
via TK-85 com 


10 CLS 

20 LET V = 175 


Velocidade inicial 



30 LET F = 57.29578 
40 LET A = 45 
50 LET C = V*SIN(A/F) 

60 LET Cl = V*C0S(A/F) 

80 FOR T = 0 TO 30 STEP .5 
90 LET X = C1*T 
100 LET Y = C*T - 4.905*T*T 
180 LET X = X/50 
190 LET Y = Y/ 50 
200 PLOT X,Y 
220 NEXT T 



Fator para transformer o an 
gulo que entra em graus em 
radianos 


langamento inicial 
a 45° 

Veja° as explicagoes 
dadas no fim do pro 
grama "REBATENDO" 


0.1. - Voce ja sahe que com A = 45° voce tem o al 
cance maximoJI! 

Caso voce nao acredite, pegue uma manguei 
ra no jardim e comprove na pratica, por£m cuidado 
com a "pressao" da agua e as dimensoes do seu jar- 
dim (caso ele exista)!!! 


Vamos fazer algumas mudangas nesse progra 
ma permitindo o ajuste do angulo de tiro. 

Introduza no programa as seguintes instru 
goes que permitem ir de 1 ate 90°. 

10 LET G = 9.81 

40 PRINT "QUAL E 0 SNGULO DE TIRO?" 

45 INPUT A 
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47 PRINT ”A=";A 
70 LET T1 * 2*C/G 
80 FOR T = 0 TO T1 STEP .5 
230 GOTO 50 

Ufa, ufa, o programa funciona e bem.’! I 

Vamos transforma—1 o em um jogo e para tan 
to mudaremos a velocidade inicial para V = 1000 e 
iremos supor que temos 32000 m para percorrer na 
diregao horizontal adotando para cada 1000 m uraa 
posigao horizontal na tela. 


150 FOR T ■ 0 TO T1 STEP .5 
160 LET X = Cl * T / 1631 
170 LET Y = T * (C - G*T/2)/1631 
180 PLOT X, Y 
190 NEXT T 

Precisamos tambem introduzir algumas ins- 
trugoes que permitam ao TK-85 detectar a destrui- 
gao ou nao do alvo. 

Para tanto acrescente no programa acima 
as seguintes linhas: 


Embora se tenha 64 posigoes ou seja 64 pi 
xeis na tela do video ligado ao TK-85, o alvo e um 
"T" e ocupara duas posigoes e voce podera acertar 
a esquerda ou a direita dele, de maneira que o nu- 
mero efetivo de posigoes horizontais e reduzido a 
metade. 


200 IF INT (X/2) = INT (K/1000) THEN GOTO 300 
250 GOTO 50 

300 PRINT AT 21, INT (K/1000) - 6; 

310 PAUSE 200 

340 GOTO 30 . ainda nao temos esta linha viu? 


0 novo programa torna-se agora: 

10 LET G = 9.81 
20 LET V = 1000 

40 LET K = INT (20000 * RND) + 12000 
50 CLS 

53 PRINT "AMPLITUDE = 32000 METROS" 

60 PRINT AT 21, INT(K/1000); "T" 

70 PRINT AT 1,0; "QUAL £ 0 SNGULO DE TIRO?" 

80 INPUT A 

90 IF A <1 OR A > 90 THEN GOTO 90 

95 PRINT "A="; A 

120 LET C = V * SIN(A/57.3) 

130 LET Cl = V * COS(A/57.3) 

140 LET T1 « 2 * C/G 


Vejamos agora como se deve proceder para 
introduzir a parte do programa que permite indi¬ 
car o quanto o seu tiro esta afastado do alvo a es 
querda ou a direita e como se pode permitir uma 
nova tentativa. 

Introduza para isto as seguintes linhas: 

210 LET E = INT(K - (32000 * SIN(.035 * A))) 

220 IF E <100 THEN PRINT AT 0,0; "DEPOIS DO ALVO 
ABS E; "□METROS" 

230 IF E >100 THEN PRINT AT 0,0;" ANTES DO ALVOO"; 

ABS E; "OMETR0S" 

240 PAUSE 200 
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Vamos agora introduzir a parte do progra 
ma que permite controlar a munigao pois essa tarn- 
bem tem limites e nesse jogo voce pode dar no maxi 
mo 6 tiros sobre cada alvo. 

Caso voce nao acerte o alvo em 6 tiros vo 

ce perde. 

Vamos tambem aumentar o numero de alvos 

para 4. 

Representamos por L o numero de tiros por 
alvo* por Ll o numero total de tiros e por Z o nu¬ 
mero total de alvos. 

Introduza entao nesse ponto as seguintes 
ins trugoes: 


5 LET Z = 0 


7 LET Ll = 0 

30 LET L = 0 — -—— Lembra que voce queria 

55 IF L - 6 THEN GOTO 260 

na parte que detectava 

100 LET Ll = Ll + 1 a destruigao do alvo 

110 LET L = L + 1 

260 PRINT AT 0,0; "0 INIMIGO VENCEU□□□C)□□□ ,, 

270 GOTO 370 --ainda nao i 

essa linha 

320 LET Z = Z + 1 - 

330 IF Z - 4 THEN GOTO 350 


ainda nao temos 7®!® 
essa linha \Li7y 


Finalmente voce pode querer recomegar o 
jogo apos saber o que aconteceu no anterior. 

Para isto acrescente as seguintes ins- 


trugoes . 
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350 PRINT AT 0,0; Ll; "OTIR0S FORAM DADOS □□□CD " 

353 IF Ll<9 THEN PRINT "BELA P0NTARIAOODOOaOOOOOQG " 

354 IF Ll < 9 THEN GOTO 360 

357 IF Ll <15 THEN PRINT "CUMPRIU A TAREFA DE FORMA 
REGULAR" 

'358 IF Ll <15 THEN GOTO 360 

359 PRINT "VOCE PODE TER PONTARIA MELHOR" 

360 PRINT "VOCE QUER JOGAR NOVAMENTE (S/N)?" 

370 INPUT A$ 

380 IF A$ ="S" THEN RUN 
390 STOP 

0.1. 1 - Na Micro Sistemas N9 26 (novembro - 1983) 
aparece o artigo "0 alvo atras da montanha" de Ru- 
dolfo Horner Junior. 

Ele ja esta quase pronto para o TK-2000. 

Para o TK-85 as raudangas que devem ser 
feat as sao muit as. 

0 interessante e que a ideia e a mesma do 
programa "PROJETIL" pois existe urn alvo fixo atras 
da montanha que devera ser atingido por tiros de 
canhao disparados pelo usuario. 

0.1. 2 - Ao se,digitar um programa novo pela pri- 
meira vez deve-se tomar cuidado para deixar posi- 
goes vazias entre o enderego de uma linha e o da 

linha seguinte. 

Alias assim toraamos uma atitude bem pru- 
dente em vista da conhecida lei de Murphy; "Se al¬ 
go tem a possibilidade de dar errado, certamente 
dara errado". 

Ao se rodar um programa e fatal descobrir 
* cuja eliminagao exige a introdugao de novas 


err os 
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1inhas. 

Urn bom programador, e voce caro(a) leitor 
(a) raerecera logo este titulo, se envergonha de nu 
meragao "estranha" ou sem lei de formagao. 

Para eliminar a numeragao devida aos "re- 
men4 os " e muito util o programa "RENUMERANDO" que 
aparece como programa do mes da Microhobby N9 1 ~ 
(maio - 1983). 

Microhobby e a revista dos usuarios do TK. 

0.I. 3 — No Micro Mundo de agosto de 1983 (N9 6' 
Sergio Batista na secgao TK-Mundo apresenta escla- 
recimentos muito uteis sobre as Artes Graficas no 
seu TK-85. 

E muito util ler este artigo!!! 


28. COEFICIENTE DE CORRELA^AO 




■(Ok 


Com o programa "COEFICIENTE DE CORRELA- 
gAO" sem duvida vamos obter o proprio entre duas 
variaveis X e Y. 

E obvio que supoe-se existir uma razoavel 
relaqao linear entre as mesmas. 

Voce estimado(a) leitor(a) deve entrar com 
os valores aos pares, era primeiro lugar a varia- 
vel que voce chamou de X e em segundo lugar a que 
chamou de Y. 


10 PRINT "CALCULO DO COEFICIENTE DE CORRELAgAO DE PEARSON" 
15 PRINT 

20 FOR K = 1 TO 8 
30 PRINT " 00 BB 
40 NEXT K 

50 PRINT "ENTRE COM 0 NtJMERO DE P0NT0S:"; 

60 INPUT N 
70 PRINT N 
75 LET J - 0 
80 LET K - 0 
90 LET L * 0 
100 LET M « 0 
110 LET P - 0 


1A 8 
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120 PRINT "ENTRE AGORA COM AS COORDENADAS DOS PONTOS 
DADOS” 

130 FOR I = 1 TO N 
140 INPUT X 
150 INPUT Y 

160 PRINT ”X,Y DO P0NT0O”; I; "□ (";X;",”;Y;")" 

180 REM NESTA PARTE DO PROGRAMA VAMOS ACUMULAR OS VALORES 
DADOS 

190 LET J = J + X 
200 LET K = K + Y 
210 LET L = L + X * X 
220 LET M = M + Y * Y 
230 LET P = P + X * Y 
240 NEXT I 

250 LET R = (N*P - J*K)/SQR((N*L - J*J) * (N*M - K*K)) 

260 PRINT 

270 PRINT "O COEFICIENTE DE CORRELAgXO E=";R 

280 FOR I ■ 1 TO 32 

290 PRINT 

300 NEXT I 

310 STOP 

0.1.1 - No nosso livro "Probabilidades e Estatisti 
ca para Engenharia" vol.2 no §8.7 esta uma descri- 
530 detalhada sobre o coeficiente de correlaqao a- 
raostral cuja formula e 


r 



onde: 


xy 


xx 


yy 


I x . y . 
* -t ii 
i = l 


? 2 
4 X . 

i = l x 


7 2 

. Z y i 

i = l 


n n 

Ex. Ey. 
♦ 1.1 
i=l i=l 


( 2 x.) 
i = l 


( 2 yj) 
i = 1 


Portanto 



Aplique o seu programa para a Tabela 11 


Escola de samba 

Juiz 1 
(X) 

Juiz 2 
(Y) 

1 

420 

550 

2 

450 

600 

3 

410 

520 

4 

360 

400 

5 

320 

410 

6 

440 

425 

7 

400 

475 


Tabela 11 


na qual estao as pontuaqoes que dois juizes deram 
a 7 diferentes escolas de samba. 

_ Voce obteve para o coeficiente de correla 

$3.0 o valor 0.68383284? OtimoIII! 





29. AJUSTE DA RETA PELO M.M.Q. 



Neste programs ajusta-se a urn conjunto de 
dados (x, y ) uma expressao algebrica do 19 grau co- 
mumente chamada de linha reta 'usando para isto o 
metodo dos minimos quadrados (M.M.Q.) 

Calculam-se os coeficientes da equagao da 
reta e faz-se uma resumida anatise de regressdo 
calculando-se o coeficiente de determinagao (cuja 
raiz quadrada e o coeficiente de correlagao) o er 
ro padrao da estimativa e imprime-se uma tabela 
comparativa entre os valores observados e os pre- 
vis tos . 

Uma vez que a equagao foi obtida pode-se 
"prever" qualquer valor de y para um dado x. 

Cuidado porem com extrapolagoes muito fo¬ 
ra do campo do experimento pois o seu valor prati 
co e muito duvidoso!?I l ? 

13 FOR K = 1 TO 4 

15 PRINT "**RETA**"; 

17 NEXT K 

18 PRINT 

19 PRINT "REGRESSAO LINEAR" 

20 PRINT 
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30 PRINT "ENTRE COM 0 N0MERO DE PONTOS" 

40 INPUT N 
50 PRINT "N-”;N 
60 DIM X(N) 

70 DIM Y(N) 

80 LET J = 0 
90 LET K * 0 
100 LET L « 0 

110 LET M = 0 

120 LET P = 0 
130 FOR I = 1 TO N 
140 INPUT X(I) 

150 INPUT Y(I) 

160 LET J » J + X(I) 

170 LET K = K + Y(I) 

180 LET L = L + X(I) * X(I) 

190 LET M = M + Y(I) * Y(I) 

200 LET P = P + X(I) * Y(I) 

210 NEXT I 

220 LET B “ (N * P - K * J)/(N*L - J*J) 

230 LET A = (K - B * J)/N 

240 PRINT 
250 FOR I = 1 TO 4 
260 PRINT "*GOSTOU*"; 

265 NEXT I 
270 PRINT 

280 PRINT "At VAI A EQUAQAO DA RETA. " 

290 PRINT "Y="; A; B; "* X" 

300 PRINT 

302 PRINT "At VAI UM RESUMO DE AN&LISE DE REGRESSAO" 
310 LET J = B*(P - J*K/N) 

320 LET M = M - K*K/N 
330 LET K = M - J 
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340 PRINT 

350 LET R2 = J/M 

360 PRINT "COEFICIENTE DE DETERMINAQAOOEOOO R**2=";R2 
370 PRINT 

380 PRINT "0 ERRO PADRAO DA ESTIMATIVAOeOQD SY=";SQR(K/ 
(N-2)) 

388 PRINT 
390 PRINT 
392 PRINT 

404 PRINT "COMPARAQAO ENTRE VALORES OBSERVADOS E PREVISTOS" 
410 PRINT "X"; TAB 8 ; "Y OBS";TAB 20 ; "Y PREVISTO" 

420 FOR I = 1 TO N 

430 PRINT X(I); TAB 8; Y(I); TAB 20; A + B * X(I) 

440 NEXT I 
450 PRINT 

460 PRINT "VOCE QUER ALGUMA PREVISAO FORA DOS PONTOS 
DADOS (S/N)?" 

470 INPUT R$ 

480 IF R$ <> "S" THEN GOTO 600 
490 INPUT X 

500 PRINT "X="; X; "Y ESTIM="; A + B * X 

510 GOTO 450 

600 FOR L = 1 TO 8 

610 PRINT " CHJtKJ"; 

620 NEXT L 
630 STOP 

0.1. - Aplique o programa para o seguinte problems do livro 
de "Probabilidades e Estatlstica para Engenharia" - vol. 2. 

t justo se esperar que os custos de manu- 
tengao de um certo tipo de maquina auraentem com a 
idade da mesma. 

Alem disto, devido a inflagao, 
mao de obra e pegas aumentara. 


o custo de 
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Para se estudar o efeito da idade no cus- 
to de raanutengao, uin grupo de 12 maquinas da fa- 
brica foi sorteado e os resultados estao na Tabe- 
la 12 . 



Idade da 
maquina (anos) 
X 


Custo de manu- 



2 3 3 3,5 



tengao do ulti 2 2 2Q 22 n 23 25 u 27 25 2? 26 29 
mo ano (1000 
u.m.) Y 


Tab e1 a 12 

Obtenha a equagao de regressao (y = a+bx), 

. . . 2 
o coeficiente de determinagao (r ) , o erro padrao 

da estimativa 

, fs - bS 

°V - y n-2 XX 

e o custo de manutengao para uma maquina de 8 anos 
de idade. 

As respostas sao: 



y = 19.293706 + 1.3216783 
r 2 = 0.75926202 


s y - 1.4071496 


x = 8 


y _. =29.867133 
7 estim 


0,1. - Na Micro Sistemas N9 20 (maio de 1983) apa- 
rece o artigo "Aplicagao de EstatJstica no micro- 
computador" de autoria de Francisco Boratto. 

E aplicado no programs apresentado, o metodo 
dos minimos quadrados (M.M.Q.) e obtem-se para um 
conjunto de dados a estimativa do intercepto e da 
inclinagao de uma reta do M.O. assim como os res- 
pectivos desvios padroes. 

Sax taubem calculado o coeficiente de corre 

lagao. 


30. regressao 
EXPONENCIAL 







Nas Hulas praticas d 6 nucrocootputadores de 
muitas Escolas voce ja pode observar experiencias 
e fenomenos cientlficos. 


Desta forma, voce coloca os dados, o tipo 
de ajuste que deseja e obtem imediatamente na tela 
do aparelho de T.V. conectado ao seu TK-85 a res- 
posta desejada. 

E assim na Faculdade de Engenharia da Fun 
dagao Armando Alvares PenteadoJ. 111 

Os alunos aprendem as disciplinas atraves 
de um metodo mais ativo e isto serapre com a orien- 
tagao e auxilio constante dos professores, 

0 programs "REGRESSAO EXPONENCIAL” da os 
coeficientes para uma curva exponencial. 

A equagao aparece na forma mais usual 



onde £ e b_ sao os coeficientes calculados. 

Os coeficientes da equagao, o coeficiente 
de determinagao e o erro padrao da estimativa 
tambem calculados. 


sao 
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10 PRINT "REGRESSAO EXPONENCIAL" 

330 PRINT "EXP*"; 

20 FOR K * 1 TO 8 

340 NEXT C 

30 PRINT "EXP*"; 

350 PRINT "UMA RESUMIDA AN^LISE DE REGRESSAO" 

40 NEXT K 

360 PRINT 

50 PRINT 

370 LET J « B * (P-J* K/N) 

60 PRINT "ENTRE COM 0 NCMERO DE PONTOS" 

380 LET M = M - K ** 2/n 

70 INPUT N 

390 LET K » M - J 

80 PRINT "N=";N 

400 LET R2 = J/M 

90 DIM X(N) 

410 PRINT "0 COEFICIENTE DE DETERMINAgAO fi R**2=0"; R2 

100 DIM Y(N) 

420 PRINT 

110 LET J = 0 

430 PRINT "0 ERRO PADRAO DA ESTIMATIVA 2 SY= □" ; 

120 LET K = 0 

SQR(K/(N-2>) 

130 LET L = 0 

435 FOR I = 1 TO 4 

140 LET M = 0 

440 PRINT 

150 LET P = 0 

445 NEXT I 

160 FOR I = 1 TO S 

450 PRINT "COMPARAgAO ENTRE VALORES OBSERVADOS E PREVISTOS 

170 INPUT X(I) 

455 PRINT "X"; TAB 8; "Y"; TAB 20; "Y ESTIM" 

180 INPUT Y(I) 

460 FOR I = 1 TO N 

190 LET Y = LN YCI) 

470 PRINT X(I); TAB 8; Y(I); TAB 20; EXP A * EXP (B*X (I) ) 

200 LET J * J + X(I) 

480 NEXT I 

210 LET K = K + Y 

490 PRINT 

220 LET L = L + X(I) * X(I) 

500 PRINT "VOCE QUER ALGUMA PREVISSO FORA DOS PONTOS DADOS 

230 LET M = M + Y * Y 

(S/N)?" 

240 LET P = P + X(I) * Y 

510 INPUT R$ 

250 NEXT I 

520 IF R$ < >"s" THEN GOTO 600 

260 LET B ■ (N*P - K*J) / (N*L - J*J) 

530 INPUT X 

270 LET A = (K - B*J) / N 

540 PRINT "X="; X; "O"; "Y ESTIM^O"; EXP A * EXP(B*X) 

275 PRINT "Al VAO OS PARXMETROS "A" E "B" " 

550 GOTO 490 

280 PRINT 

600 FOR L = 1 TO 32 

290 PRINT "A=0"; EXP A 

610 PRINT "®"; 

300 PRINT "B=Q"; B 

620 NEXT L 

310 PRINT 

630 STOP 

320 FOR C « 1 TO 8 
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0.1.1- Que tal testar o programa "REGRESSAO EXPO- 
NENCIAL" para o seguinte problema. 


X 

10 

12 

15 

17* 

20 

22 

25 

27 

30 32 

35 

y 

0,95 

_ 

1,05 

1,25 

1,41 

1,73 

2,00 

2,53 

2,98 

3,85 4,59 

6,02 


Tabela 13 


Voce obtern a expressao 

y = 0.41486768e 0,074165037x 
no seu TK-85? 

Otimo::: 

0 coeficiente de determinaqao deve dar 
0,99284016 e o erro padrao da estimativa e 
0.05507336. 

0.1. 2 - Na Micro Sistemas N9 25 (outubro - 1983) 
saiu o programa "Ajuste ps dados e fa 9 a previsoes" 
de autoria de Armando Oscar 1 Cavanfia Filho e Maria 
BeaCriz de Campos Cavanha. 

~ 0 programa esta pronto para o seu TK-85 e 

preve seis opgoes para ajustar curvas a pontos da¬ 
dos ou seja 

a) Linear 

b) Exponencial 

c) Logaritmica 

d) Potencia 

e) Hiperbolica 

f) Parabolica (29 grau) 

indicando inclusive o coeficiente de determinagao 
para cada caso, com o^que e iraediata a melhor esco 
lna entre as seis opqoes propostas < ' 



Com o programa ’'REGRESSAO GEOMfiTRICA"ajus 


ta-se pelo M.M.Q. uma curva geontetrica ou seja do 
tipo y = ax b a um conjunto de dados numericos en 
tre as variaveis X (variavel independente) e Y (va 
riavel dependents). 

Alem disso calcula-se tambem o coeficien¬ 
te de determinaqao, o erro padrao da estimativa,po 
de-se obter a comparaqSo entre a previsJo e a ob- 
servaqao para qualquer ponto dado assim como obter 
extrapolaqoes. 

Bern ai vai o programa: 

5 CLS 

10 PRIST "REGRESSAO GEQMfiTRICA" 

20 PRINT 

30 PRINT "ENTRE COM 0 N0MERO DE PONTOS" 

40 INPUT N 
50 PRINT "N=";N 
55 DIM X(N) 

57 DIM Y(N) 

60 LET J = 0 
70 LET K = 0 
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80 LET L - 0 
90 LET M « 0 
100 LET P = 0 
110 FOR I = 1 TO N 
120 INPUT X(I) 

130 INPUT Y(I) 

140 LET Y * LN Y(I) 

150 LET X = LN X(I) 

160 LET J = J + X 

170 LET K - K + Y 

180 LET L = L + X * X 

185 LET M = M + Y * Y 

190 LET P = P + X * Y 

200 NEXT I 

210 LET B = (N*P - K*J)/(N*L - J*J) 

220 LET A = (K - B * J)/N 
230 PRINT 

240 FOR C = 1 TO 32 
250 PRINT 
260 NEXT C 

270 PRINT ”Y= □”; EXP A; "*X** M ; B 
280 FOR D - 1 TO 32 
290 PRINT 
300 NEXT D 

310 PRINT "DMA -RESUMIDA AN&LISE DA-REGRESSAO” 
320 PRINT 

330 LET J = B*(P - J*K/N) 

340 LET M = M - K*K/N 
350 LET K = M - J 
360 LET R2 = J/M 
370 FOR E = 1 TO 32 
380 PRINT 
390 NEXT E 


400 PRINT "0 COEFICIENTE DE DETERMINAQAO E R**2=0”; R2 
410 PRINT 

420 PRINT "0 ERRO PADRAO DA ESTIMATIVA E SY= SQR(K/<N-2)) 
430 PRINT "COMPARAQAO ENTRE VALORES OBSERVADOS'E PREVISTOS" 
435 PRINT "X"; TAB 8; "Y"; TAB 20; "Y ESTIM" 

440 FOR I = 1 TO N 

445 PRINT X(I); TAB 8; Y(I); TAB 20; EXP(A) * X(I) ** B 
450 NEXT I 
455 PRINT 

460 PRINT "VOCE QUER ALGUMA PREVISAO FORA DOS PONTOS DADOS 
(S/N)?" 

470 INPUT R$ 

480 IF R$ < >"S" THEN GOTO 600 
490 INPUT X 

500 PRINT "X- M ; X; "DOO"; "Y ESTIM=Q M ; EXP(A)*X**B 

510 GOTO 455 

600 FOR E = 1 TO 32 

610 PRINT "O"; 

620 NEXT E 
630 STOP 

0*1. “ Aplique o programs "REGRESSAO GEOmEtRICA" 
para os dados da Tabela 


X 

5,8 

6,3 

6,5 

6,8 

7,6 

8,0 

8,0 

8,5 

8,7 

8,6 

9,0 

'9,1 

y 

48,8 

58,2 

- J 

59,9 

62,7 

72,3 

82,1 

82,5 

93,5 

99,1 

100 

114,6 

115,2 


esta e a nossa 
"classica" vir 
gula decimal 


T abe1a 14 


Na Tabela 14 x e o numero de empregados em 
Indus trias de manufatura (em milhoes) e y e a pro- 
duqao em milhoes de u.m* 
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Note que este e mais um exercicio do Cap 
tulo 8 do nosso livro "Probabilidades e Estatlsti- 
ca para a Engenharia" - vol. 2. 

Consulte a pagina 119 e veras!!! 


trtl 



No programa "REGRESSAO POLINOMIAL" vatnos 
obter os coeficientes de uma expressao (equaqao) 
algebrica de ordem N usando o M.M.Q. 

A equaqao e colocada na forma 


y = c + a^x + 3i2 x 


+ a x 
n 


sendo y a variavel dependente, c o termo constante 
e indepertdente e a,, a~,...,a os coeficientes 
constantes das potencies l,2 ,...,n da variavel in 
dependente x* 

Obtem^-se tambem nesse programa o coefici- 
ente de determinaqao (r ) , o erro padrao da estiraa 
tiva (sy) compara-se os valores observados com os 
previstos assim como permite-se obter previsoes e 
extrapolaqoes para valores de x distintos daque- 
les que aparecera na tabela de dados original. 


10 PRINT "REGRESSAO POLINOMIAL DE ORDEM N" 
20 FOR K = 1 TO 6 
30 PRINT "POLI*"; 

40 NEXT K 
45 PRINT 
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50 PRINT "ENTRE COM 0 GRAU DA EQUAgAO:"; 

60 INPUT G 
65 PRINT G 

70 PRINT ’’ENTRE COM 0 NCMERO DE PONTOS:”; 

80 INPUT N 
85 PRINT N 
87 PRINT 

90 LET D = 2*G + 1 
100 LET E = G + 1 
110 LET F = G + 2 
120 DIM A(D) 

130 DIM R(.E,F) 

140 DIM T(F) 

145 DIM X(N) 

148 DIM Y(N) 

150 LET A(l) = N 
152 FOR K * 1 TO F 
154 LET T(.K) * 0 
156 NEXT K 
158 FOR J - 2 TO D 
160 LET A(J) = 0 
162 NEXT J 

165 PRINT "OBTENgAO DA MATRIZ DO SISTEMA NORMAL 
170 FOR I = 1 TO N 
180 INPUT X(I) 

190 INPUT Y(I) 

210 FOR J = 2 TO D 

220 LET A(J) = A(_J) + X(I) ** (J-l) 

230 NEXT J 

240 FOR K = 1 TO E 

250 LET R(K,F) = T(K) + Y(I) * X(I) ** (K-l) 

260 LET T(K) = T(K) + Y(I) * X(I) ** (K-l) 

270 NEXT K 


280 LET T(F) = T(F) + Y(I) * Y(I) 

290 NEXT I 

300 PRINT ’’AGORA 0 SEU TK-85 VAI RESOLVER 0 SISTEMA 
LINEAR - SEJA PACIENTE" 

302 FOR K = 1 TO 32 

305 PRINT 

307 NEXT K 

310 FOR J * 1 TO E 

320 FOR K = 1 TO E 

330 LET R(J,K) = A(J+K-1) 

340 NEXT K 
350 NEXT J 
360 FOR J = 1 TO E 
370 LET K = J 

380 IF R(K,J) <> 0 THEN GOTO 430 

390 LET K = K+l 

400 IF K < = E THEN GOTO 380 

410 PRINT "NAO EXISTE UMA SOLUglO GnICA” 

420 GOTO 1000 
430 FOR I = 1 TO F 
440 LET Q = R(J,I) 

450 LET R(J,I) = R(K,I) 

460 LET R(K,I) » Q 
470 NEXT I 

480 LET Z = 1 / R(J,J) 

490 FOR I = 1 TO F 

500 LET R(_J,I) = Z*R (J»I) 

510 NEXT r 

520 FOR K = 1 TO E 

530 IF K = J THEN GOTO 580 

540 LET Z = -R(K,J) 

550 FOR I = 1 TO F 

560 LET R(K»I) = R(K,I) + Z*R(J,I) 
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57$ NEXT I 
580 NEXT K 
590 NEXT J 
600 PRINT 

610 PRINT "0 TERMO INDEPENDENTS fi: R(1,F) 

620 FOR J = 1 TO G 

630 PRINT "COEFICIENTE DE GRAU0"; Jj "□£ IGUAL AO"; 

R(J+1, F) 

640 NEXT J 
650 PRINT 

660 PRINT "UMA ANXLISE DE REGRESSJlO RESUMIDA" 

665 PRINT 

670 LET P = 0 

680 FOR J = 2 TO E 

690 LET P - P+RtJ,F) * CTCJ) - A(J) * TCD/N) 

700 NEXT J 

710 LET W = T(F) - T(l) * T(.l)/N 

720 LET Z = W - P 

730 LET L = N - G - 1 

735 PRINT 

740 LET R2 = P/W 

750 PRINT "0 COEFICIENTE DE DETERMINA^AO £ R2="; R2 
760 PRINT "0 ERRO PADR&0 DA ESTIMATIVA £ SY="; SQR(Z/L) 
770 PRINT 

780 PRINT "COMPARAgAO ENTRE OS VALORES OBSERVADOS E OS 
PREVISTOS" 

790 PRINT "X"; TAB 8; "Y"; TAB 20; "Y ESTIM" 

795 FOR I * 1 TO N 
800 LET P = R(1,F) 

810 FOR J = 1 TO G 

820 LET P = P + R(J+1,F) * X(.I)**J 

830 NEXT J 

840 PRINT X(I); TAB 8; Y(I); TAB 20; P 


850 NEXT I 
860 PRINT 

870 PRINT "VOCE QUER ALGUMA PREVISSO FORA DOS DADOS DO 
PROBLEMA (S/N)?" 

880 INPUT R$ 

890 IF R$ < > "S" THEN GOTO 1000 
900 LET P = R(1,F) 

910 INPUT X 

920 FOR J = 1 TO G 

930 LET P = P + R(J+1, F)*X**J 

940 NEXT J 

950 PRINT "X= M ; X; "O"; "Y ESTIH="; P 
960 GOTO 860 
1000 STOP 

0.1. Aplique o programa "REGRESSAO POLINOMIAL" pa¬ 
ra obter para os dados da Tabela 15. 

. . 2 
um ajuste do tlpo y = c + a^x + 

e depois y = c + a^x + a 2 x^ + a^x 3 
Qual e o melhor? 

Resp.: Caso voce consultar o nosso livro 
"Probabilidades e Estatlstica para Engenharia" no 
Capitulo 10 e mais precisamente nas paginas 255 e 
256 veras que o coeficiente de determinagao da pa¬ 
rabola cubica e maior que o da parabola do 29 grau 
e entre os dois ajustes o que melhor explica o fe- 
nomeno e a parabola cubica. 

Voce concorda com isso? 
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0.1. Na Microhobby N9 5 (.1983) o programa do let- 
tor e a "Regressao de Ordem N M de autoria de Enio 
Eduardo Kranen. 

0 programa permite a pesquisa do grau da 
equagao que melhor se ajusta aos dados pois- dotou- 
se o programa da facilidade de novo processamento, 
com os mesmos pares de valores (x;y), sen a neces- 
sidade d,e reintroduzi-los, o que se torna extrema- 
mente vantajoeo quando a quantidade de dados for 
grande. 



obtem-se os coeficientes de uma equagao linear com 
varias variaveis usando o M.M.Q. 


A forma da equagao e: 

y = c + a^x^ + a 2 x 2 + a-jX^ +...+ a^x^Cl) 

onde yea variavel dependente, c e o termo inde- 
pendente e a^,a 2 ,...»a n sao os coeficientes das va 
riaveis independ ent es , x 2 -»..«»x n . 

0 programa "REGRESSSo LINEAR MtJLTIPLA"per 
mite obter os coeficientes c , a^ , a 2 ,...,a , o coe- 
ficiente de determinagao multipla (R^), oerro pa- 
drao da estimativa e caso se queira qualquer pre- 
visao,dados os valores das variaveis independentes. 

Al vai o programa: 

10 PRINT "REGRESSAO LINEAR MCLTIPLA" 

15 PRINT 

20 FOR I * 1 TO 8 
30 PRINT "RLM*"; 

40 NEXT I 
45 PRINT 
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50 PRINT "ENTRE COM 0 NtJMERO DE PONTOSd"; 

60 INPUT N 
70 PRINT N 

80 PRINT "ENTRE COM 0 NtJMERO DE VARlXVEIS INDEPENDENTES O"; 

90 INPUT V 
100 PRINT V 
110 DIM X(N+l) 

120 DIM S(N+1) 

130 DIM T(N+l) 

140 DIM A(N+l y N+2) 

150 LET X(l) = 1 

152 FOR K = 1 *TO V+l 

154 FOR L = 1 TO V+2 

156 LET A(K,L) * 0 

158 NEXT L 

160 NEXT K 

162 FOR I = 1 TO N 

165 PRINT "PONTOCT; I 

170 FOR J = 1 TO V 

180 PRINT J; "VARlAVEL ODO "; 

185 INPUT X(.J+1) 

187 PRINT X(J+1) 

190 NEXT J 

200 PRINT "VARlAVEL DEPENDENTS 0"; 

210 INPUT X(V+2) 

220 PRINT X(V+2) 

230 PRINT 
240 PRINT 

250 PRINT "AGORA 0 SEU TK-85 FARA OS CALCULOS PARA OBTER 
OS ELEMENTOS DA MATRIZ QUE PERMITIRAO AJUSTAR 0 
HIPERPLANO" 

260 PRINT 

270 FOR K » 1 TO V+l 


280 FOR L = 1 TO V+2 

290 LET A(K,L) = A(K,L) + X(K) * X(L) 

300 LET S(K) = A(K, V+2) 

310 NEXT L 
320 NEXT K 

330 LET S(V+2) * S(V+2) + X(V+2)**2 
340 NEXT I 
350 PRINT 

360 PRINT "TENHA UM POUCO DE CALMA, TA,*." 

370 PRINT "E AGORA QUE SERA RESOLVIDO 0 SISTEMA LINEAR 1 
375 PRINT 

380 FOR I = 2 TO V+l 
390 LET T(I) = A(1,I) 

400 NEXT I 

410 FOR I = 1 TO V+l 
420 LET J = I 

430 IF A(J,I) <> 0 THEN GOTO 480 

440 LET, J = J+l 

450 IF J < = V+l THEN GOTO 430 

460 PRINT "NAO EXISTS SOLUgAO flNICA" 

470 GOTO 1000 

480 FOR K = 1 TO V+2 

490 LET B = A(I,K) 

500 LET A(I,K) = A(J,K) 

510 LET A(J,K) = B 

520 NEXT K 

530 LET Z = 1/A(I,I) 

540 FOR K = 1 TO V+2 
550 LET A(I ,K) = Z*A(T,K) 

560 NEXT K 

570 FOR J * 1 TO V+l 

580 IF J *> I THEN GOTO 630 

590 LET Z = - A(J,I) 
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600 FOR K = 1 TO V+2 

610 LET A(J,K) = A(J,K) + Z*A(I,K) ‘ 

620 NEXT K 
630 NEXT J 
640 NEXT I 
650 PRINT 

660 FOR K = 1 TO 8 
670 PRINT "OBA*OBA*"; 

630 NEXT K 
690 PRINT 

700 PRINT "Al VAO OS PARSMETROS:" 

710 PRINT "TERMO INDEPENDENTE= n ; A(l, V+2) 

720 FOR I = 2 TO V+l 

730 PRINT "OVARlAVELC; 1-1; ") = A(I, V+2) 

740 NEXT I 

750 LET P = 0 

760 FOR I = 2 TO V+l 

770 LET P = P+A(I»V+2)*(S(I)-T(I)*S(1)/N) 

780 NEXT I 

790 LET R = S(V+2) - S(1)*S(1)/N 

800 LET W = R - P 

810 LET D = N - V - 1 

820 PRINT 

830 LET R2 = P/R 

840 PRINT "O COEFICIENTE DE DETERMINAQAO £ R2=0";R2 
845 PRINT 

850 PRINT "0 ERRO PAD RAO DA ESTIMATIVA £ SY =□"; 

SQR (ABS (W/D)) 

855 PRINT 

860 PRINT "VOCE QUER PREVER ALGUM VALOR (S/N)? ,r 
870 INPUT R$ 

880 IF R$ < > n S n THEN GOTO 1000 
890 LET P = A(l, V+2) 

895 FOR J = 1 TO V 
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900 PRINT J; "OVARISVELD"; 

910 INPUT X 
920 PRINT X 

930 LET P = P + A(J+1, V+2)*X 
935 PRINT 
940 NEXT J 

950 PRINT "dA PREVISAO fis Y ESTIM-O”; INT(P*1000 +.5)/1000 
960 PRINT 
970 GOTO 855 
1000 STOP 

0.1. - Voce nao pensa que agora que teclou tanto vai 
escapar de uma aplicaqao? 

Hhum,. ainda bem. 

No nosso livro "ProbabilidadeS e Estatxsti 
ca para Engenharia" - vol. 2 na pSgina 204 temos o 
seguinte problema: 

"E analisado em um pais hipotetico, o pro- 
blema de prever o lucro liquido Cy) em milhares de 
u.m. para supermercados localizados em area metropo 
litana. 

Os "regressoras" independentes sao as ven- 
das totais (xj^) em dezenas de milhares de u.m. de 
produtos alimentlcios e as vendas totais (X 2 ) em de 
zenas de milhares de u.m. 

Obtiveram-se num mesmo periodo os seguin- 


tes resultados: 
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Supermercado 

Vendas de 

produtos 

alimenticios 

Vendas de pro 
dutos nao ali 
menticios 
(x 2 ) 

Lucro liqui 
do 

Cy) 

1 

305 

35 

20 

2 

130 

98 

15 

3 

189 

83 

17 

4 

175 

76 

9 

5 

101 

93 

16 

6 

269 

77 

27 

7 

421 

44 

35 

8 

195 

57 

7 

9 

282 

31 

22 . 

_ 10 

203 

92 

23 


Tabela 16 


a) Obtenha a estimativa da equagao do pla 
no de regressao. 

b) Qual e o erro padrao da estimativa? 

c) Qual e o coeficiente de determinagao 

multipla? 

Dica - As respostas voce vera na tela ou entao no 
livro de "Probabi1idades..." supra citado. 

d) Para o problema do supermercado (e tem 
algum supermercado com problema?) inclua urn novo 
regressor ou seja uma variavel adicional que e 
a area em milhares de metros quadrados para o esta 
cionamento dos clientes (Tabela 17). 


Supermercado 

Sr ea 
<x 3 ) 

1 

35 

2 

22 

3 

27 

4 

16 

5 

28 

6 

46 

7 

56 

8 

12 

9 

40 

10 

32 


Tabela 17 


Responda as perguntas a), b) ec) incluin 
do tambem a variavel X^. 

0 modelo ajustado e mais complicado mas o 
seu poder de explicagao do "fenomeno" - lucro li- 
quido - e maior ou menor? 

Resposta - Bern maior, e da ordem de 98,5% , 



























Recentemente (3 a 10 de janeiro de 1984) 
tivemos a oportunidade de transmitir alguma coisa 
sobre a Linguagem BASIC e a grande necessidade do 
seu uso mais frequente no ensino da Engenharia a 
um grande grupo de professores da Faculdade de En¬ 
genharia da Fundaqao Armando Xlvares Penteado. 

A finalidade do encontro tinha como meta 
"o melhor ensino so e possivel juntando professo¬ 
res altamente qualificados e a mais avanqada tecno 
logia". 

Dentro da tecnologia de primeira linha en 
contra-se evidentemente o TK-85, o qual foi usado 
para se "passer" muitos programas. 

Entre os muitos professores altamente qua 
lificados estava o meu professor de Termodinamica 
e Transmissao de Calor dos tempos ainda de Engenha 
ria Mackenzie, o ilustre mestre Antonio de Olivei¬ 
ra. 

Foi ele quern "bolou" e apresentou no cur- 
so este programa "SISTEMA LINEAR", tao importante 
para a sua disciplina e para outras que necessitam 
de resoluqao de sistemas lineares como por exemplo 
Eletromagnetismo, Estabilidade, etc. 
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Nao e um programa dificil porem a concei- 
tuagao teorica do mesmo nao e tao simples. 

Foi por isso que pedimos ao prof.01 iveira 
que indicasse para nos um resumo do que se quer ob 
ter no programa e inclusive fazer um teste Humeri- 
co. 

Ai vao as explicagoes e o programa pro- 
priamente dito, alem do meu. muito obrigado... 

Definigao do problema: 

Determinar a distribuigao de temperatures 
em um duto de secgao quadrada dadas as temperatu¬ 
res das faces internas e externas pelo metodo doe 
elementos finitos. 



. Campo de temperaturas 


T = fCx^y) 


Figura 12 


. Equagao diferencial para o caso em foco 

( 1 ) 

Para aplicagao do metodo numeric© o 
go deve ser discretizado e dada a geometria 
problema torna-se conveniente dividir a pega 
diante uma malha quadrada. 


espa- 

do 

me- 
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ximado 



Na fase seguinte devemos obter o valor apro 
da derivada segunda para o ponto generico: 




Somand o (2) e C3) ter emo s: 
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2 2 

Valov apvoximado pava 3 T/3y 

Procedendo da mesma forma que o caso ante 
rior teremos: 



Substituindo (4) e (.5) em (1) teremos a 
equagao de diferenga finita para o ponto generico 



Aplicando para o problema proposto e div 
dindo o espago em 12 partes iguais teremos: 


•W t 


3 4 5 


8 9 10 11 12 13 



Figura 16 

A equagao ( 6 ) devera ser aplicada a cada 
ponto nodal obtendo-se um sistema de equagoes li- 
neares cuja solugao nos dara as temperaturas pedi- 


Entretanto convSm notar: 

'. 0 sistema de equagoes pode ser resolvido com 

vantagem pelo nietodo de Gauss — Seidel 

. 0 problema e simetrico 

Quanto a simetria para diminuir o esforgo 
de programagao somente sera considerada na diregao 
x, e para acelerar a convergencia o valor de cada 
ponto sera atualizado duas vezes em cada ciclo de 
calculo bem como sera aplicado um fator de acelera 
gao de convergencia M over-re 1 axation" tal que: 
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0 programa para nas seguintes oondigoes: 

1? quando atingida uma precisao prefixada. 

2? quando atingido o numero de lagos de iteragao 
prefixada. 

Para evitar repeti^oes desnecessarias se- 
rao exibidos apenas as temperaturas entre a diago 
nal principal e o eixo Y - Y. 

0 tempo de execuqao para: 

A = 1.43 e 
precisao = 0.001 

e de aproximadamente 3 minutos. 

10 PRINT "DUTO 13x13 R/l" 

20 DIM A(13,13) 

25 REM ENTRADA DE DADOS 
30 PRINT AT 10, 10; "T. EXTERNA" 

40 INPUT E 

50 PRINT AT 10,10; n T. INTERNA" 

60 INPUT W 

70 PRINT AT 10,10; "PRECISSODD " 

80 INPUT R 

90 PRINT AT 10,10; "ACELERA^AO" 

100 INPUT A 
110 CLS 
120 FAST 

125 REM PREPARAR INTERFACES EXTERNAS 

130 FOR I - 1 TO 13 

140 LET A(1,1) = E 

150 LET A(.13,1) = E 

160 LET A(I,1) = E 

170 LET A(I,13) = E 


180 NEXT I 

185 REM PREPARAR INTERFACES INTERNAS 

190 FOR I = 5 TO 9 

200 LET A(5,I) = W 

210 LET A(9,1) = W 

220 LET A(I,5) = W 

230 LET A(I,9) * W 

240 NEXT I 

245 REM CALCULO 

250 FOR D = 1 TO 100 

260 LET K = 0 

270 FOR I = 2 TO 12 

280 FOR J = 2 TO 12 

290 IF I < 5 OR I > 9 OR J < 5 THEN GOTO 310 
300 IF J < = 9 THEN GOTO 360 

310 LET Z = A*((A(I-1,J) + A(.I+1,J) + A(I,J-1) 
+ A(I,J+l))/4 - A(I,J>) 

320 LET A(I,J) = A(I,J) + Z 
330 LET K = K + ABS Z 
340 LET L = 14 - I 
350 LET A(L,J) = A(I,J) 

360 NEXT J 
370 NEXT I 

380 IF K> = R THEN GOTO 410 
390 LET B = D 
400 GOTO 440 
410 NEXT D 

420 PRINT AT 10,10; "SEM CONVERG§NCIA" 

425 SLOW 
430 STOP 

440 PRINT "ITERA=0";B 

441 FOR I = 1 TO 30 

442 PRINT CHR$ 128; 
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443 NEXT I 
445 PRINT 

450 PRINT TAB 10;”RESPOSTAS" 

460 PRINT 
465 LET N = 1 
470 FOR I = 2 TO 4 
480 LET N = N + 1 
490 FOR J - N TO 7 

500 PRINT TAB 10;"T(";IJ " , -O"} A(I,J) 

510 NEXT J 
520 NEXT I 
530 GOTO 425 

0.1. Faga um teste para: 

temperatura externa E * 100°C 

teraperatura interna W = 300°C 

precisao R = 0.0 01 

aceleragao A = 1.43 

As respostas arredondadas para 2 decimals 
que voce deve obter sao: 



Tab el a 18 


185 


BIBLIOGRAFIA 


1) B i t s 

A Revista de quern usar o microcomputador 

2) Campbell, J - Siminoff, J.D. - Yates, J. 

The TIMEX Personal Computer Made Simple 
A Signet Book - New York 1982 

3) Charlton, M. 

The Gateway Guide to the ZX81 and ZX80 
Creative Computing Press - N.J* - 1981 

4) Chin, Y. - Mullish, H. 

Crunchers - L/ Simple Games for the TIMEX/ 
SINCLAIR 1000 2K 

5) Daines, D. 

26 BASIC Programs for Your Micro 
Butterworthe,and Co. Ltd. - 1983 

6 ) Dwyer, T, - Critchfield, M. 

Addison-Wesley Publishing Company - London-1983 

7) Gee, S.M. 

The Spectrum Programmer 
Granada - London - 1983 

8 ) Hamzo^ T. 

Colegao de Programas - vol. II 

Editora Moderna - Micromega - Sao Paulo - 1983 

9) Hergert, D. 

Basic for Business 
Sybex - Berkley - 1982 

10) Hurley, L. 

ZX81 / TS 1000 

Programming for Young Programmers 
Me Graw-Hill Book Company - 1983 




186 


11) Hurley, R. 

More Real Applications for the ZX81 and ZX 
Spectrum 

The Macmillann Press Ltd.- Great Britain-1982 

12) Interface 

Revista de Hardware- Software - Mini - Micro- 
computadores 

Teleprocessamentos (1983-1984) 

13) James, M. - Gee, S.M. - Ewbank, K. 

The Spectrum Book of Games 
Granada - London 1983 

14) Lima, D.S. 

30 Jogos para TK-82 e CP-200 
Impresso por J.A.C. Editors Grafica 
Sao Jose dos Campos - S.P. - 1983 

15) Lima, D.S. 

Aplicagoes Serias^para TK-82C e CP-200 
J.A.C. Editors Grafica — Sao Jose dos Campos 
1983 

16) Microdigital 

Manual de Programagao BASIC TK-85 

17) Microhobby 

A Revista dos usuarios do TK 

18) Micro Mundo 

A Revista dos usuarios do microcomputador 

19) Micro Sistemas 

A primeira revista brasileira de microcomputa— 
dores 

20) Mirshawka, V. 

BASIC Sem Segredos 

Livraria Nobel S.A. - Sao Paulo - 1983 

21) Mirshawka, V. 

Linguagem BASIC 

Livraria Nobel S.A. - Sao Panlo - 1983 

22) Mirshawka, V. 

De um MAXXI a sua vida 

Livraria Nobel S.A. - Sao Paulo - 1984 


187 


23) North, A. 

‘101 ATARI Computer Programming Tips and Trick 
ARC soft Publishers - 1983 

24) Nevison, J.M. 

Executive Computing 

How to get it done on your own 
Addison-Wesley Publishing Company 

25) Page, E. 

37-TIMEX 1000 - Sinclair ZX81 

Programs for Home, School, Office 

ARC soft Publishers - Woodsboro, Maryland-1981 

26) Page , E. 

101 TIMEX 1000/SINCLAIR ZX-81 

Programming Tips and Tricks 

ARC soft Publishers - Woodsboro - 1983 

27) Page, E. 

TIMEX/Sinclair 
Computer Games Programs 

ARC soft Publishers - Woodsboro, Maryland-1983 

28) Parker, D. - Martin, H. 

Computing is Easy 
Newnes Technical Books 

29) Pereira, A.E. 

BASIC para computadores Pessoais 
Livros Erica Editora Ltda. — 1983 

30) Poole, L. - Borchers, M. 

Some Common Basic Programs 

Osborne / Me Graw-Hill - Berkley - 1979 

31) Rossi, C.J. De. 

Making BASIC Work for You 

Reston Publishing Company, Inc. - Reston-1979 

32) Salvato, C.E.R. 

Colegao de Programas 

Editora Moderna - Micromega — S.P. — 1983 

33 ) Sawush , M. 

100 Things To Do With Your Personal Computer 
TAB Books Inc. 

Blue Ridge Summit, Pa - 1980 



188 


34) Sinclair, X. 

The ORIC-I and how to get de most from it 
Granada - London 1983 

35) Toms, T. 

The ZX-81 Pocket Book 

Reston Publishing Company, In. - Reston- 1981 



M 0556 


IMPRESS© NAS OFICINAS DA EDITHS LOYOLA 
RUA 1822 n.° 347 - TEL.: 914-1922 - sao paulo 



